Mengubah Tipe String ke Angka dengan StrToInt dan StrToFloat

Sebelum mempelajari Delphi, saya telah terbiasa terlebih dahulu dengan Visual Basic (VB). Pada VB, kita tidak perlu pusing-pusing memikirkan data. Kode program seperti ini:

Text3.Text = Text1.Text * Text2.Text

dapat berjalan tanpa masalah di Visual Basic. Tetapi jika itu diterapkan pada Delphi, pasti terjadi error.

Pada delphi, operasi data harus sesuai dengan tipe data. Lantas bagaimana kita melakukan operasi data jika isi TEdit bertipe string? Tentu saja kita harus mengubahnya ke tipe data angka, entah ke tipe Integer atau ke tipe floating (bilangan dengan koma desimal). Untuk mengubah string ke tipe integer Anda dapat menggunakan StrToInt, sedangkan string ke floating memakai StrToFloat

Contoh:

var
    A : String;
    B : String;
    Hasil : String;
begin
   A := '2';
   B := '3';
   Hasil := IntToStr(StrToInt(A) * StrToInt(B));
   ShowMessage('Hasil Perkalian adalah =  ' + Hasil);
end;
 
 A dan B di deklarasikan bertipe string di bagian Var. Tetapi programer berkeinginan melakukan operasi perkalian, sehingga A dan B harus diubah ke tipe angka terlebih dahulu (dalam contoh diatas bertipe integer) dengan StrToInt. Namun, variabel penampung Hasil bertipe string, sehingga hasil perkalian diubah kembali menjadi bertipe Integer dengan IntToStr

Untuk mengetahui kapan menggunakan StrToInt atau StrToFloat, perhatikan bilangan-bilangan yang akan dikenai operasi. Pada contoh diatas, bilangan 2 dan 3 adalah integer, sehingga lebih tepat jika kita menggunakan StrToInt. Jika operasi melibatkan bilangan integer dan desimal, sebaiknya memakai StrToFloat, apalagi kalau sudah jelas sama-sama memakai bilangan ber-koma.

Hati-hati juga dengan spasi diantara bilangan. Sebagai contoh, andai deklarasi A diubah menjadi seperti ini:

A := '2 ';

Pasti akan membangkitkan pesan kesalahan, sebab dibelakang angka 2 terdapat spasi.



Mengubah Tipe String ke Angka dengan StrToInt dan StrToFloat Rating: 4.5 Diposkan Oleh: Good Dreamer

0 comments:

Posting Komentar

Diberdayakan oleh Blogger.