Rabu, 18 Juli 2012

mengubah konversi tipe data pada delphi dan fungsix

Ada beberapa fungsi yang digunakan untuk konversi tipe data di delphi, yaitu :

1. Fungsi Strtoint
Digunakan untuk mengubah String yang mempresentasikan data bertipe integer menjadi
sebuah angka bertipe integer
Sintaks :
Function Strtoint (const S : String) : Integer;
Contoh : Nilai integer := Strtoint (edit1.text) ;
Artinya mengubah data yang bertipe String di komponen edit1 menjadi data yang bertipe
integer yang disimpan di variable nilai integer.

2. Fungsi Strtofloat
Digunakan untuk mengubah String yang mempresentasikan data bertipe integer menjadi
sebuah nilai floatingpoint (bilangan real).
Sintaks :
Function Strtofloat (const S : String) : Extended ; overload ;
Function Strtofloat (const S : String ; Const format settings : tformat
settings) : Extended ; overload ;
Contoh : Bilangan real:= strtofloat (edit1.text) ;
Artinya mengubah data yang bertipe String di dalam komponen edit1 menjadi data yang
bertipe Extended (real) yang disimpan di variable bilangan real

3. Fungsi Inttostr
Digunakan untuk mengubah data bertipe integer menjadi sebuah string
Sintaks :
Function inttostr (value : integer) : String ; overload ;
Contoh :
Mystring := Inttostr (5*6)
Artinya data bertipe integer (yaitu 30, yang merupakan hasil perhitungan 5*6) dirubah
menjadi data bertipe string yang disimpan di variable mystring

4. Fungsi Inttostr
Digunakan untuk mengubah nilai floating-point menjadi sebuah string
Sintaks :
Function floattostr (value : Extended) : String ; overload ;
Contoh :
Mystring := FloatToStr (3,14*4)
Artinya data bertipe real (yaitu 12,56, yang merupakan hasil perhitungan 3,14*4) dirubah menjadi data bertipe string yang disimpan di variable mystring.

illank bundrank

Author & Editor

Has laoreet percipitur ad. Vide interesset in mei, no his legimus verterem. Et nostrum imperdiet appellantur usu, mnesarchum referrentur id vim.

1 komentar:

  1. bang ada cara konversi tipe data dari integer-karakter, string-karakter,karakter-string, karakter-integer ga?

    POS ke risno_fauzi@yahoo.com

    BalasHapus