Selvy Kharisma

coding Array menggunakan aplikasi delphi 



buat lah coding di bawah ini di aplikasi delphi atau bisa menggunakan embarcadero, dan buat lah pada form nya. seperti di bawah ini form bab2, baris 3 dan kolom 3



procedure Tformbab2.FormCreate(Sender: TObject);
type
TArraymahasiswa = Array [1..3,1..3] of string;
var
  infomahasiswa : TArraymahasiswa;
  teks : string;
  I : integer;

begin
  //pemberian nilai ke array
  infomahasiswa[1,1] := '1723031';
  infomahasiswa[1,2] := 'selvy kharisma';
  infomahasiswa[1,3] := 'Air Paoh';
  infomahasiswa[2,1] := '1723032';
  infomahasiswa[2,2] := 'Siti Hariyanti';
  infomahasiswa[2,3] := 'Sukaraya';
  infomahasiswa[3,1] := '1723027';
  infomahasiswa[3,2] := 'Pelita Nuramini';
  infomahasiswa[3,3] := 'Lubuk batang lama';

  //tampilkan isi array
  teks := '';//string kosong
  for I := 1 to 3 do
  teks := teks + infomahasiswa [I,1] + '------'+
          infomahasiswa[I,2] + '------' + infomahasiswa[I,3] + #13#10;
          labelinfo.Caption := teks;
end;

end.

sekian koding array yang saya buat. kunjungi blog saya yang lain https://selvykrs.blogspot.com