string durchsuchen und tipps zu while + for-schleifen

[DeddyH]

OK, dann auf Nummer Sicher:

Delphi-Quellcode:

procedure TForm2.Button5Click(Sender: TObject);
var i:integer;

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

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;
      sleep(600);  //auf jeden Fall Zeit zum Gucken geben
    end;
end;

[edit] StringEnthalten muss natürlich eine Funktion sein [/edit]