Suchfunktion mit Memo- und Editfeldern

[SirThornberry]

was ist der Fehler? Gibt es eine Access-Violation?
folgendes führt zum fehler wenn kein suchergebnis gefunden wurde

Delphi-Quellcode:

while Zeiger^.Name <> Edit1.Text do 
begin 
  Zeiger:=Zeiger^.Next; 
end;

Denn Wenn Zeiter.Next nil ist dann ist Zeiger danach auch nil und bei Zeiger^.Name knallts dann.
Dementsprechend muss es so aussehen

Delphi-Quellcode:

while Assigned(Zeiger) and (Zeiger^.Name <> Edit1.Text) do 
begin 
  Zeiger:=Zeiger^.Next; 
end;

und hinter der Schleife darfst du dann natürlich auch nur das Ergebnis anzeigen wenn etwas gefunden wurde

Delphi-Quellcode:

if Assigned(Zeiger) then
begin
  Memo1.Lines.add(Zeiger^.Name); 
  Memo2.Lines.add(Zeiger^.Kuerzel); 
  Memo3.Lines.add(Zeiger^.Gegenstand); 
end else
  ShowMessage('nix gefunden');