Tugas Algoritma dan Struktur Data Statistika B

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, ExtCtrls, ComCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
ListBox1: TListBox;
BitBtn1: TBitBtn;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
listmat=^Data;
Data=record
NIM:string;
Nama:string;
Alamat:string;
next:listmat;
end;

var
Form1: TForm1;
NIM1:string;
Nama1:string;
Alamat1:string;
awal,akhir:listmat;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var baru,bantu:listmat;
begin
NIM1:=edit1.Text;
Nama1:=edit2.Text;
Alamat1:=edit3.Text;
new(baru);
baru.NIM:=NIM1;
baru.Nama:=Nama1;
baru.Alamat:=Alamat1;
if awal=nil then
begin
awal:=baru;
end
else
akhir.next:=baru;
akhir:=baru;
akhir.next:=nil;
edit1.Clear;
edit2.Clear;
edit3.Clear;
listbox1.Clear;
bantu:=awal;
listbox1.Items.add(' NIM Nama Alamat ');
listbox1.Items.add('-----------------------------------------------------');
while bantu<>nil do
with bantu^ do
begin
listbox1.Items.Add(NIM+' '+Nama+' '+Alamat);
bantu:=next;
end;
end;

end.