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!
mfg
Helmi
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<