hargapng : real;
hargapng := strtofloat(label59.Caption);
if dit.qpjt.IsEmpty  then
begin
dit.qpjt.close;
dit.qpjt.SQL.Clear;
dit.qpjt.SQL.Add('insert into penumpang');
dit.qpjt.sql.Add('values('''+kode+''','''+asal+''','''+tujuan+''','''+tanggal+''','''+notiket+''','+inttostr(jumlahtiket)+','''+nama+''','''+alamat+''','''+ktp+''','''+telepon+''','''+berangkat+''','+floattostr(round(hargapng))+')');
dit.qpjt.open;
dit.qpjt.close;
dit.qpjt.SQL.Clear;
dit.qpjt.SQL.Add('Commit');
dit.qpjt.Open;
End ;

hargapng := strtofloat(round(label59.Caption));   <--- cobain disini

hargapng := round(strtofloat(label59.Caption)); 

@adit4it: thanks2... berarti round hanya untuk membulatkan angka desimal. maksud aku berarti round ga bisa membulatkan angka lebih spesifik untuk harga. misal 12340,56. dibulatkan 12340. Seharusnya membulatkan 12300. atau 12340,98 dibulatkan menjadi 13000. Jadi untuk membulatkan harga kan ga bisa pake round?

@adit4it: Udah kucoba pake round tapi ga bisa... label59.caption aku tetap ada komanya. kira-kira salah dimana ya...

hargapng := strtofloat(label59.Caption);

label59.caption:=inttostr(round(strtofloat(label59.caption)));

label59.caption:=inttostr(round(hargapng));

label59.caption:=inttostr(dit.qpjt.fields[11].asInteger);

misal 12340,56. dibulatkan 12340. Seharusnya membulatkan 12300

Function Bulatkan(Value:Extended):Integer;
begin
   Value:=Round(Value);
   Result:=Value - Value mod 100 + IfThen((Value mod 100) > 50, 100, 0);
   {untuk penggunaan IfThen tambahkan unit Math dalam uses clause}
end;