string durchsuchen und tipps zu while + for-schleifen

[delphi-n]

so herum klappts:

Delphi-Quellcode:

  function StringEnthalten(const SubStr, Str: string): Boolean;
  begin
    Result := Pos(AnsiLowerCase(SubStr), AnsiLowerCase(Str)) > 0;
  end;

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 StringEnthalten('schritt',RichEdit1.Lines[i]) then
        Button1.Click
      else if StringEnthalten('linksdrehen', RichEdit1.Lines[i]) then
        Button3.Click
      else if StringEnthalten('rechtsdrehen', RichEdit1.Lines[i]) then
        Button4.Click
      else if StringEnthalten('umdrehen', RichEdit1.Lines[i]) then
         begin
        Button4.Click;
        Button4.Click;
        end;

    sleep(200);

    end;
end;