Как сделать, чтобы в DBGrid вместо цифр были соответствующие константы

Previous  Top  Next

    
 

 

 

Code:

procedure TForm1.Grid1DrawColumnCell(Sender: TObject; const Rect: TRect;

         DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

// ВАЖНО: имя поля большими буквами!

if Column.Field.FieldName = 'PLATEZH' then

begin

   Grid1.Canvas.FillRect(Rect);

   if Column.Field.AsInteger = 0 then

     Grid1.Canvas.TextOut(Rect.Left + 1, Rect.Top + 2, 'наличными')

   else

     Grid1.Canvas.TextOut(Rect.Left + 1, Rect.Top + 2, 'безнал');

end;

end;

 

 

©Drkb::03045

       

Взято с http://delphiworld.narod.ru