Teilstring suchen

[mkinzler]

Für gefunden würde sich eher eine Booleanvariable eignen.

Delphi-Quellcode:

procedure TForm1.SuchenButtonClick(Sender: Tobject);
var 
    suchbegriff,zeile: string;
    i,max,separator:integer;
    gefunden: Boolean;
    sl: TStrings;
begin
  sl := TStringList.Create;
  sl.Delimiter = #45;
  suchbegriff := autorfeld.Text;
  i:=0;
  gefunden:=False;
  max:=Listenfenster.Items.Count-1;
  while (i < max) and not gefunden do
  begin
    sl.DelimitedText := Listenfenster.Items.Strings[i];
    autorfeld.text:= sl.Strings[1];
    if(autorfeld.text=suchbegriff) then gefunden:= True else i:=+1;
  end;
  if  not gefunden) then 
  begin
      ShowMessage('Der Autor konnte nicht gefunden werden.');
  end;
end;