Memberi warna DBGrid

Contoh memberi warna pada komponen DBGrid dengan nama komponen DBGrid1 :

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
//Memberi warna $00E9D358 jika data population dalam tabel1 > 25000000
if Table1.FieldByName(‘Population‘).AsInteger > 25000000 then
TDBGrid(Sender).Canvas.Brush.Color := $00E9D358;
TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Read More

Menghilangkan karakter dalam kata

BEGIN
before:='12,000,000';
StringReplace(before, ',', '',[rfReplaceAll, rfIgnoreCase]);
//koma dihilangkan
ShowMessage(before);
END;

Read More

Format uang pada komponen Edit

var

sRupiah: string;

iRupiah: Currency;

begin

//ribuan --> currency ( menyesuaikan setting windows )

sRupiah := Edit1.Text;

sRupiah := StringReplace(sRupiah,',','',[rfReplaceAll,rfIgnoreCase]); 
// hilangkan char koma , pemisah //ribuan selain IDR

sRupiah := StringReplace(sRupiah,'.','',[rfReplaceAll,rfIgnoreCase]);

//remove char titik .    pemisah //ribuan IDR

iRupiah := StrToCurrDef(sRupiah,0); // convert srupiah ke currency



//currency --> format ribuan

edit1.Text := FormatCurr('#,###',iRupiah);

edit1.SelStart := length(edit1.text);

Read More