Datenbank ohne BDE für delphi 5.0

[dazon]

Delphi-Quellcode:

    Type
     tperson = record
     vorname:string[30];
     name:string[30];
     strasse:string[50];
     hausnummer:string[3];
     plz:string[5];
     ort:string[30];
     //zeiger: integer;

  end;



var
  Form1: TForm1;
  person:tperson;
  adresse:Array[1..100]of tperson;
  Datei: File of tperson;
  i,w: integer;

implementation

{$R *.DFM}



procedure TForm1.Felder_leerenClick(Sender: TObject);
begin
edvorname.text:='';
edname.text:='';
edstrasse.text:='';
edhausnummer.text:='';
edplz.text:='';
edort.text:='';
end;

procedure TForm1.FormCreate(Sender: TObject);
var s: integer;
begin
  s:= 1;
  assignfile(Datei,'Adressen.dat');
  i:= 1;
  reset(Datei);
  while not EoF(Datei) do
    begin
      read(Datei,adresse[s]);
      s:= s+1;
    end;
  w:=1;
end;

procedure TForm1.SpeichernClick(Sender: TObject);
begin
  with person do begin
  adresse[i].vorname    := edvorname.text;
  adresse[i].name       := edname.text;
  adresse[i].strasse    := edstrasse.text;
  adresse[i].hausnummer := edhausnummer.text;
  adresse[i].plz        := edplz.text;
  adresse[i].ort        := edort.text;
  end;
  write(Datei,adresse[i]);
  i:=i+1;


end;


procedure TForm1.DB_verlassenClick(Sender: TObject);
begin
closefile(datei);
close;
end;


end.

ich kapier des mit code libary ned


wie mach ich jetzt das laden, und wie kann ich das bisherige mit dynamischen arrays machen?