string durchsuchen und tipps zu while + for-schleifen

[delphi-n]

also so?

Delphi-Quellcode:

procedure TForm2.Button5Click(Sender: TObject);
var i:integer;
begin
  for i := 0 to RichEdit1.Lines.Count - 1 do
    begin
     

      Button5.Caption := RichEdit1.Lines[i];
      Application.ProcessMessages;
      if Pos('schritt', AnsiLowerCase(RichEdit1.Lines[i])) > 0 then
         begin
        Button1.Click ;
          Application.ProcessMessages;
        sleep(200);
        end;
       if Pos('linksdrehen', AnsiLowerCase(RichEdit1.Lines[i])) > 0 then
              begin
        Button3.Click;
         Application.ProcessMessages;
         sleep(200);
         end;
       if Pos('rechtsdrehen', AnsiLowerCase(RichEdit1.Lines[i])) > 0 then
           begin
        Button4.Click;
           Application.ProcessMessages;
         sleep(200);
         end;
    end;
end;