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

[Helmi]

Zitat von cello:

Es funktioniert nicht

Das ist keine Fehlermeldung!
Was geht nicht?


Wenn dann mit einen break:

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:= '';

       break;
     end;
   end;
end;

Wenn der Name, der im Edit4 eingegeben wurde, gefunden wurde, dann werden die 3 Edits beschrieben und Edit4 geleert.
Die Schleife läuft aber weiter. Ist dann der Name des nachfolgenden Array-Eintrags auch leer (also nil), dann wird
aus diesem Array-Element gelesen.

[Edit]
"exit" gegen "break" getauscht - ist richtiger bei Schleifen!