Sebelum kita membuat Aplikasi mendeklarasikan Array dan Record menggunakan Delphi kita pahami terlebih dahulu apa itu array dan reccord
berikut penjelasannya :
Array/larik adalah sekumpulan elemen yang bertipe sama.
Deklarasi array pada bahasa Pascal
nama_array:array[index]of tipe_data
Ex: c++
tipe_data nama_array [elemen];
Suatu array dapat digambarkan sebagai kotak panjang yang berisi kotak-kotak kecil didalam kotak panjang tersebut bisa juga download disini
Struct terdapat pada bahasa C/C++, sedangkan Record pada bahasa Pascal.
Sebuah Struct/Record merupakan koleksi satuan data yang heterogen, yakni terdiri dari berbagai type: int, float, char etc.
Struct/Record adalah sekumpulan elemen data yang memiliki tipe dan panjang data yang berbeda-beda tapi memiliki nama yang sama.
Syntax untuk membentuk record:
Type
nama_record = record
identifier1:tipe_data1;
identifier2:tipe_data2;
: :
: :
identifier_n:tipe_data_n;
end;
var
nama_var:nama_record;
By: Afwan S.Kom
Sekilas Informasinya sekarang kita mulai membuat Aplikasi menggunakan Array dan Reccord di Delphi :
Pertama buatlah tampilan form seperti ini :
masalah warna dan tampilan / desain buatlah semenarik mungkin ga perlu sama persis yang saya ontohkan
Kemudian inilah bagian terpenting klik2 kali button1 atau button input data Ok
jangan lupa tuliskan listing berikut ini:
procedure TForm1.Button2Click(Sender: TObject);
type tabel_mhs = record
nim: longint;
nama: string;
nilai: integer;
end;
var
data : array [1..100] of tabel_mhs;
n,i : integer;
begin
n:=StrToInt (Edit4.Text);
for i:= 1 to n do
begin
data[i].nim:=StrToInt(InputBox('NIM','masukkan NIM',''));
data[i].nama:=InputBox('NAMA','masukkan NAMA','');
data[i].nilai:=StrToInt(InputBox('NILAI','masukkan NILAI',''));
Memo1.Lines.append ('Data ke '+inttostr(i)+#9+' '+inttostr(data[i].nim)+#9+data[i].nama+#9+inttostr(data[i].nilai));
end;
end;
jika sudah bisa di cek apakah aplikasi yang kita buat berhasil atau tidak dengan
menekan tobol F9 pada keyboard atau klik icon RUN
0 komentar:
Posting Komentar