string durchsuchen und tipps zu while + for-schleifen

[Der.Kaktus]

Zitat von delphi-n:

Zitat:

Der String, mit dem verglichen wird, wird durch "AnsiLowerCase" klein geschrieben. Somit muss der Suchstring ebenfalls klein geschrieben werden.

danke, wieder was gelernt


wenn ich das in das richedit schreibe:

Zitat:

schritt
Schritt
Linksdrehen
schritt
Rechtsdrehen
Schritt

mit dem Quellcode:

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//<----------------ist OK
        Button1.Click ;
        sleep(200); //auch Application.Processmessages nehmen!
       if Pos('Linksdrehen', AnsiLowerCase(RichEdit1.Lines[i])) > 0 then //<--Ansilower heisst..alles klein..dein Wert ist aber "L"inksdrehen..statt "linksdrehen"
        Button3.Click;
         sleep(200);//auch Application.Processmessages nehmen!
       if Pos('Rechtsdrehen', AnsiLowerCase(RichEdit1.Lines[i])) > 0 then // wie bei Linksdrehen..nur eben Rechts
        Button4.Click;
         sleep(200);//auch Application.Processmessages nehmen!
    end;
end;

erscheint alles auf dem button, aber dir buttons 3+4 werden nie gedrückt

[Edit] Appli"c"ation[/Edit]