Arsip: Tanya Konversi String
more 17 years ago
tAtA
Rekan semua, minta tolong neh. gimana caranya konversi dari string ke nilai integer / float,
soalnya aku punya masalah, aku bikin program simpan pinjam dimana terdapat bunga simpanan
yg diisi lewat edit ex: 1.5
aku coba conversi dgn perintah strtofloat(edit.text) terjadi error
pesan errornya "is not valid a floating point"
apakah dari rekan - rekan punya solusi supaya bisa konversi karakter '.' ke integer/float.
more 17 years ago
Mr-Soft
@tAtA: apakah dari rekan - rekan punya solusi supaya bisa konversi karakter '.' ke integer/float.Erorrnya karakter '.' yak? coba dulu untuk karakter '.' ganti dengan karakter ',' koma, kemungkinan itu pengaruh dari regional setting di windowsnya jadi weh errror sok weh lah cobaan heula hwe..he... :lol:
more 17 years ago
adit4it
kalo konversi dari string ke integer
strtoint(edit.text) trus di values nya balikin lagi inttostr(edit.text);
kalo konversi dari string ke real/float
strtofloat(edit.text) trus di values nya balikin lagi floattostr(edit.text);
atau mau lebih jelas upload aja script nya.
atau format di DB nya untuk angka yang berkoma harus bertipe real/float.
hi...hi... soalnya aku juga pernah ky gitu
more 17 years ago
_lmz
coba pakai procedure val(). denger-dengernya procedure ini tidak terpengaruh regional settings alias tetep pakai "." untuk tanda desimalnya...
more 17 years ago
nunoct
Ato Coba pake tambahan diatasnya :
DecimalSeparator:= '.';
Trus baru di strtocloat(),
dan edit.text dipaksa ga boleh pake ','
more 17 years ago
mas_kofa
It's function of My function Collection
function ValidInteger(edit:TEdit) : integer;
begin
try
result := StrToInt(edit.Text);
except
result := 0;
end;
end;
S'moga jadi bermanfaat....
more 17 years ago
_aa_
seperti telah disebut diatas, masalahnya terletak di perbedaan
tanda desimal (regional setting).
solusinya, ya ganti saja sesuai tanda desimal yang berlaku:
Text := Sysutils.DecimalSeparator
hapus selain angka dan tanda desimal:
for i:= length(Text) downto 1 do
if not (Text[i] in ) then
Delete(Text, i, 1);
baru dikonversi:
Rp := StrToFloat(Text);
more 17 years ago
deLogic
@mas_kofa: It's function of My function Collection function ValidInteger(edit:TEdit) : integer; begin try result := StrToInt(edit.Text); except result := 0; end; end; S'moga jadi bermanfaat....sebenarnya, di delphi sudah disediakan fungsi yang sama, yaitu TryStrToInt [quote='"Delphi_Help"] function TryStrToInt(const S: string; out Value: Integer): Boolean; TryStrToInt converts the string S, which represents an integer-type number in either decimal or hexadecimal notation, into a number, which is assigned to Value. If S does not represent a valid number, TryStrToInt returns false; otherwise TryStrToInt returns true. [/quote] Nah... ini contohnya:
procedure TForm1.Button1Click(Sender: TObject);
var
Int: Integer;
begin
Int := 2;
TryStrToInt('2s0s', Int); // Int bernilai 2
Int := 3;
TryStrToInt('20', Int); // Int bernilai 20
end;
Nah terkait dengan bilangan desimal.. maka bisa digunakan TryStrToFloat..
Lalu maslah pemisah desimal..? Gunakan TryStrToFloat yang ada parameter FormatSettings, tentu saja sebelumnya di-utak atik dulu TFormatSettings nya..
Semoga bermanfaat walaupun sedikit melenceng dari topik.. :)
more 17 years ago
khairulfahmi
boz pake gini aja
bikin variabel
var x : real;
x= StrToInt(Edit.text);
udah de.....semoga membantu
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 4 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- ASK: Grant Role to User Gak Jalan?
by deLogic in FireBird more 17 years ago - ada yang tau gimana caranya mau pake image PNG??
by alvonz in Tip n Trik Pemrograman more 15 years ago - Tambah Data Ke String Grid Ni ?!
by jajang in Hal umum tentang Pascal Indonesia more 15 years ago - Tanya Client Server SQL Server
by nuno_irfan in MsSQL more 16 years ago - pilih date
by sulth4n in MySQL more 18 years ago - ModifySQL u/ data yg sama di MySQL 5.0.45 bermasalah!
by bugan in MySQL more 16 years ago - Problem akses .net web services via BDS 2006 for win32
by andipurwito in Tip n Trik Pemrograman more 16 years ago - Simpan field image pada dbase
by donna in Hal umum tentang Pascal Indonesia more 17 years ago - error install delphi 7
by nurez in MySQL more 17 years ago - Tentang Memo di Access
by bayu in Lain-lain more 15 years ago