Memakai Array Of String

Array[ItemArray] of string digunakan untuk menyimpang data-data bertipe string lebih dari sebuah. Index data dapat dilihat di ItemArray, sedangkan pengambilan data dapat dilakukan dengan menyebut index sesuai dengan yang tersebut di ItemArray.

Sebagai demo, saya akan memodifikasi daftar item di TComboBox pada artikel Program Konversi Suhu. Pada artikel tersebut, saya menambahkan isi TComboBox sebagai berikut:

procedure TForm1.FormCreate(Sender: TObject);
begin
   cbSuhuAsal.Clear;
   cbSuhuAsal.Items.Add('CELCIUS');
   cbSuhuAsal.Items.Add('KELVIN');
   cbSuhuAsal.Items.Add('FAHRENHEIT');

   cbSuhuHasil.Clear;
   cbSuhuHasil.Items.Add('CELCIUS');
   cbSuhuHasil.Items.Add('KELVIN');
   cbSuhuHasil.Items.Add('FAHRENHEIT');
end;

Sekarang saya akan memodifikasinya dengan membuat daftar itemnya pada array of string sebagai berikut:

procedure TForm1.FormCreate(Sender: TObject);
const
    ItemCombo : array[1..3] of string =
          ('CELCIUS','KELVIN','FAHRENHEIT');
var
  i : integer;
begin
   cbSuhuAsal.Clear;
   for i:= low(ItemCombo) to High(ItemCombo) do
     cbSuhuAsal.Items.Add(ItemCombo[i]);

   cbSuhuHasil.Clear;
   for i:= low(ItemCombo) to High(ItemCombo) do
      cbSuhuHasil.Items.Add(ItemCombo[i])
end;
 

 

Memakai Array Of String 2015-07-13T15:50:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer