Probleme beim abrufen von arrays

[cello]

Zitat von Aurelius:

Hallo cello und herzlich willkommen

Wie bereits erwähnt ist es sehr ratsam, wenn du deinen Quellcode mit

Code:

[delphi][/delphi]

formatieren würdest. Ist einfach übersichtlicher

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin  
  for i:= 1 to 100 do
  begin
    if edit4.Text = person[i].Name then
      exit;
    edit2.Text:= person[i].Name;
    edit1.Text:= person[i].Vorname;
    edit3.Text:= inttostr(person[i].Alter);

    edit4.Text:= '';
 end;
end;

Das Array wird durchlaufen und springt, sobald der Datensatz gefunden wurde, durch das exit noch vor dem Füllen der Felder aus der Prozedur. Weiterhin wird Edit4 beim ersten Eintrag schon wieder zurück gesetzt, so dass die Bedingung gar nicht mehr vorhanden ist. Eigentlich sollte das so aussehen:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin  
  for i:= 1 to 100 do
  begin
    if edit4.Text = person[i].Name then
    begin
      edit2.Text:= person[i].Name;
      edit1.Text:= person[i].Vorname;
      edit3.Text:= inttostr(person[i].Alter);
      edit4.Text:= '';
    end;
 end;
end;

Es funktioniert nicht