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

Материал из DRKB

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

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;


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