Hallo Leute... ich will lieber nicht wissen der wievielte Thread das zu diesem Thema ist
, und ich hab mir auch einige dazu durchgelesen, aber trotzdem tut das Programm nicht das, was es eigentlich soll.
Also es geht um ein TList, die Autoren und die Bücher, die diese geschrieben haben, verwalten soll. Man gibt sozusagen Autor und Titel in zwei Felder ein und dann erscheinen die in der Liste.
Nun will ich aber den Autor suchen können... es erscheint auch keine Fehlemeldung aber, wenn ich einen Autor suche, erscheint gleich die Nachricht'Der Autor konnte nicht gefunden werden.', obwohl der Autor in der Liste steht. Vielleicht ist ja jemand so nett und kann sich mal anschauen, was ich da so (alles) falsch gemacht habe. Hoffe ich hab alle nötigen Infos da unten stehen... wäre echt hilfreich!!!
thx
Delphi-Quellcode:
procedure TForm1.SuchenButtonClick(Sender: Tobject);
var gefunden,j,n,suchbegriff,zeile:string;
i,max,separator:integer;
begin
autorfeld.Text:=suchbegriff;
i:=0;
gefunden:=n;
max:=Listenfenster.Items.Count-1;
repeat
Listenfenster.Items.Strings[i];
zeile:=Listenfenster.Items.Strings[i];
separator:=pos(#45,zeile);
autorfeld.text:=copy(zeile,1,separator-1);
if(autorfeld.text=suchbegriff) then begin
i:=Listenfenster.ItemIndex;
gefunden:=j;
end else begin
i:=+1;
end;
until (gefunden=j)or (i>max);
if (gefunden=n) then begin
ShowMessage('Der Autor konnte nicht gefunden werden.');
end;
end;