Variant

//Vaiant

{
Variant adalah Typedata yang Multifungsi ...
Hampir semua Type data ada didalamnya , Variant Memiliki kompatibilitas yang tinggi

Tetapi kekurangan dari variant mengambil Banyak Memory

Variant Tidak membutuhkan konversi nilai ...
Tetapi tetap memiliki aturan seperti ini.



}

var a,b,c : variant ;
Begin

a := 'String Bisa' ; // String Bisa
b := 21321 ;  //Integer pun bisa
c := True ;  //Boolean Juga bisa


memo1.lines.add(A) ;
memo1.lines.add(B) ;
memo1.lines.add(C) ;


end;


{
Jadi Variant Kompatibel dengan semua jenis tipe data ... Tanpa melakukan konversi
}

Type Data

// Type Data

{

Type Data adalah Sebuah Jenis Dari Sebuah Variabel , Sama Halnya Nama Kalian ...

Misalnya

//===========
Indra : Manusia
Jadi Indra adalah Jenis Manusia ... Begitupun Dengan Variabel Lainnya
Jadi Indra Memiliki Sifat Manusia , Dan Persyaratan Atas Manusia
Misalnya Cara Memanggilnya...
//===========

Begitupun Dengan Kode Dibawah ini

//===========
Nama : String
Jadi Nama adalah String (Teks)
Jadi Nama Memiliki Sifat String , Dan Persyaratan Atas String
Misalnya Harus Dibatasi Dengan Kutip Atas ...
//===========

}

Tstringlist

//TStringList

{
Tstringlist adalah Type data Jenis string tetapi memiliki paragraf atau List ..
Tipe data ini sering kita dapat pada Property

"Lines"
"Items"
DLL

Untuk menambah item pada Tstringlist harus Bertype string.

Contohnya Menggunakan string list pada memo .


}

//===================================

procedure TForm1.Button1Click(Sender: TObject);
var a:tstringlist;
begin
a :=TStringList.Create ;

a.Add('isi 1') ;
a.Add('isi 2') ;

Memo1.Lines := a;

end;

//===================================

Tdatetime

//TDatetime


{
Tdatetime adalah type data bertype Waktu ...
Jadi Tdatetime Biasanya Berguna Untuk Mengambil Tanggal atau Jam . Tentunya Dengan FOrmat tertentu .

Seperti dibawah ini .


}

//==================================

Var A : tdatetime ;
Begin
a:=date ;

showmessage(datetostr(a)) ;
end;

//==================================


{atau Bisa Juga Seperti ini }

Begin
Showmessage(formatdatetime('DD/MM/YYYY' , NOW) ) ;
end;

String

// String

{
Type_Data "STRING" adalah Type Data Bersifat Teks ...

Dengan Persyaratan , Jika Memberikan Nilai Harus Dibatasi Dengan Kutip atas.

Contohnya Seperti Dibawah ini

}

Var a:string ;
Begin

a := 'Isi dari String Dibatasi Kutip atas';
Showmessage(a) ;

end;


// Nah Seperti itulah COntoh Variable String ...

// Adapun Type data String Yang Sering Kali Didapat Pada Properties Yaitu
// Caption , Name , Text , DLL


// Misalnya Kode untuk Mengganti isi Caption Pada Label 1 ...



//===================

Begin

Label1.caption := 'Ini contoh Pada Properties'

end;

Real

//Real

{
Real adalah Type data Jenis Angka ... Real Dapat Dikatakan Lebih Baik Dari Pada Integer .
Karena Real Bisa Digunakan Untuk Semua Jenis Bilangan ...  Mulai Dari Decimal , Maupun Pecahan

Real , Double , Single , Float = Adalah Jenis Yang sama ...

Konversi Real ke string  = Floattostr ()
Konversi String ke real = StrtoFloat()

Jadi Walaupun Type data Real .. Konversi.nya tetap menggunakan Float
Begitupun dengan Double Dan Single

Contoh

}

//=====================================================

Var a : String ;
    b,c : Real ;

Begin
a := '1.5';
b := 2 ;

c := strtofloat(a)  + b ;

showmessage( floattostr(c) );
end;


//=====================================================


{
Untuk Menjumlahkan Suatu variable , maka kedua variabel tersebut harus bernilai (type data) yang sama
}

Integer

//Integer

{
Integer Adalah Type data Bersifat Angka Bulat (-2 , -1 , 0 , 1 , 2 ... )
Dan Persyaratan Pengisian Nilai Integer adalah Pengisiannya Harus Bersifat Bulat ...

Contohnya Seperti Dibawah ini

}

Var a , b , c : integer ;
Begin

a := 10 ;
b := 20 ;
c := a + b ;
Showmessage(inttostr (c) );

end;


{
Itu contoh Integer .. adapun Showmessage adalah Tampilkan Pesan , Artinya Pesan harus Bernilai String

Sedangkan Variable Kita Bernilai Integer ... Jadi Harus Di konversi Menjadi String ...

Dengan Cara Menuliskan Kode ("INTTOSTR)  Jika Dipisah ("INT TO STR") atau Integer To String ...

Seperti itulah Integer .
}

Currency

//Currency

{
Currency adalah Tipe data Yang Hampir Sama dengan integer dan float ...
Bedanya Currency Memiliki Pembatas , Seperti (.) ...
Sering digunakan Untuk Format UANG ... seperti 20.000 ... nah seperti itu currency ...

Tentunya Dengan Format Pengaturan ...
Contohnya

}

Var a:Currency ;
Begin
a:=20000;
Edit1.text := formatcurr('#,###' , a) ;
end;

{ Maka Jadinya Akan Seperti ini 20.000}
{ Format Pengaturan Currency Seperti Diatas '#.###' , tiga #(Pagar)  ini Maksudnya 3 angka Sebelum Titik}
{ Jika anda Masukkan 20000000 maka akan jadi 20.000.000}

Char

//Char

{
Char adalah Type Data Karakter ... Atau dengan kata lain hanya 1 kata ... Hampir sama dengan string
Jadi Char hanya 1 kata (a,b,c,d,e,f,g .. )

Dan Char Memiliki aturan penulisan sama dengan string , dibatasi dengan kutip atas

???
Sering terjadi Pertanyaan Kenapa mesti ada Char , padahal sudah ada string ...

Jadi Char hanya memiliki beberapa karakter saja, tentu itu membuat Memory jadi lebih ringan ...
Sedangkan Jika kita memilih String , padahal isinya hanya 1 karakter saja , itu membuat pemborosan memory


}

Byte

// Byte

{
Byte adalah Sebuah Angka yang sangat ringan
Hampir sama Seperti Char ...

Batas Cyte hanya sampai dengan 0 - 255
Jadi Byte Sangat Kecil Mengambil memory saat Dibuat.
Berbeda dengan integer dan float ... batasnya > 2.000.000.000

Byte Biasa Digunakan Untuk Index


}

Boolean

//Boolean

{
Boolean adalah Type data Pilihan antara (True , False)

True = Benar , iya
False = Salah , tidak

Type data boolean pada properties , sering kita dapat pada

Active
Enabled
Visible
Connected

DLL

Adapun contoh untuk kode menghilangkan Komponen , Misalnya Button

}

Begin
Button1.visible := False;
end;

// Jadi Property visible itu memiliki type data boolean , dan hanya ada 2 pilihan yaitu true , false

Array

//Array

{
Array Sebenarnya Bukan Type data

Tapi array Berguna untuk Memberikan Index Kepada Type data  ...
Contohnya

//==============================
Car Kata : string
Jadi Kata hanya Memiliki 1 Index atau Hanya 1 kali pemakaian

//==============================

Coba kita gunakan Array Seperti ini



//==============================
Var Kata:array [1..10] of string ;

jadi Kata tetap Memiliki type data string , tapi Banyaknya ada 1 sampai 10 ...
//==============================


Sekarang kita menggunakan array Untuk memasukkan teks kedalam memo ..

}

procedure TForm1.Button1Click(Sender: TObject);
var NIM:array [1..10] of string ;
begin

Nim[1] := '213280164';
Nim[2] := '213280165';
Nim[3] := '213280166';
Nim[4] := '213280167';

Memo1.lines.add (nim[1]) ;
Memo1.lines.add (nim[2]) ;


end;


{
Nah Itu contoh mengggunakan array , Hanya ada 1 kata variabel yang memiliki index
Setiap Index memiliki nilai berbeda ...
}