Record dan Array di delphi

langkah pertama adalah membuat form seperti ini bisa juga download disini

kemudian isi kan syntax berikut pada Button1/ atau button Ok

procedure TForm1.Button1Click(Sender: TObject);
type nilai_mhs= record
nim:LongInt;
nama:String;
nilai:integer;
end;
type mhs=array[1..10] of nilai_mhs;
var t:nilai_mhs;
n,i,nilai: integer;
nim:longint;
nam:string;

begin
n:=StrToInt(edit1.text);
i:=i+1;
for i:= 1 to n do
begin
nam:=(InputBox('nama','Nama',''));
nim:=StrToInt(InputBox('nim','NIM',''));
nilai:=StrToInt(InputBox('nilai','Nilai',''));
Memo1.Lines.Append(IntToStr(i)+#9+(nam)+#9+('')+#9+IntToStr(nim)+#9+('')+#9+IntToStr(nilai));
end;
edit1.SetFocus;
end;
langkah selanjutnya adalah klik dua kali button2 atau button clear kemudian tuliskan syntax berikut :
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Clear;
Memo1.Clear;
end;
end.


untuk menampilkan program tersebut apakah berfungsi atau tidak tekan tombol F9 pada keyboard

Berikut penjelasan singkatnya mohon ma'af atas segala kekurangannya maklum masih tahap belajar