Teilstring suchen

[dominikkv]

öhm... weißt du überhaupt was du da machst ?!
versuchs mal so:

Delphi-Quellcode:

procedure TForm1.SuchenButtonClick(Sender: Tobject); 
var 
  I, Index: Integer; 
begin 
  Index := -1;
  if Listenfenster.Items.Count > 0 then
    for I := 0 to Pred(Listenfenster.Items.Count) do
      If Pos(autorfeld.text, Listenfenster.Items[i]) > 0 then
        begin
          Index := I;
          Break;
        end;
  if Index < 0 then
    ShowMessage('Der Autor konnte nicht gefunden werden.');
end;