string durchsuchen und tipps zu while + for-schleifen

[DeddyH]

Macht er doch. Aber Du kannst das auch mit einer for-Schleife lösen.

Delphi-Quellcode:

procedure TForm2.Button5Click(Sender: TObject);
var i:integer;
begin
  for i := 0 to RichEdit1.Lines.Count - 1 do
    begin
      //die folgenden beiden Zeilen sind eigentlich sinnfrei,
      //weil das so schnell gehen dürfte, dass man nichts erkennen kann
      Button5.Caption := RichEdit1.Lines[i];
      Application.ProcessMessages;
      if Pos('schritt', AnsiLowerCase(RichEdit1.Lines[i])) > 0 then
        Button1.Click
      else if Pos('hallo', AnsiLowerCase(RichEdit1.Lines[i])) > 0 then
        Button3.Click;
    end;
end;