Merubah value/Huruf/Teks pada DBGRID di Delphi

Merubah Value atau data yang ditampilkan di DBGRID dengan yang kita inginkan.

procedure TFAbsen.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
grid : TDBGrid;
JAM: String;
aRect : TRect;
begin
JAM := '-'; // deklarasi teks yang akan ditampilkan di DBGRID
aRect := Rect;
grid := sender as TDBGrid;

    if column.FieldName = 'JamMasuk' then    // jika kolom JamMasuk maka: jika Value Jam masuk = 00:00 maka di DBGRID tampilkan menjadi tanda - (baca : min)
begin
    if (ADOTampilJamMasuk.Value=StrToTime('00:00')) or (ADOTampilJamMasuk.Value=StrToTime('0:00')) then
    begin
    grid.Canvas.FillRect(Rect);
    DrawText(grid.Canvas.Handle, PChar(JAM), Length(JAM), aRect,
      DT_SINGLELINE or DT_CENTER or DT_VCENTER);
      end
end;
end;

jadi di DBGRID itu harusnya yang muncul 00:00 tapi karena memakai coding di atas maka dimana yang Valuenya=00:00 akan brubah menjadi tanda - (baca : min).

Catatanku !!

Title : Merubah value/Huruf/Teks pada DBGRID di Delphi
Description : Merubah Value atau data yang ditampilkan di DBGRID dengan yang kita inginkan. procedure TFAbsen. DBGrid1DrawColumnCell (Sender: TObject; c...