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');