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...

Read More

Menghilangkan karakter dalam kata

BEGINbefore:='12,000,000';StringReplace(before, ',', '',[rfReplaceAll, rfIgnoreCase]);//koma dihilangkanShowMessage(before);EN...

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...

Read More