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
Button1.Click ;
sleep(200);
if Pos('Linksdrehen', AnsiLowerCase(RichEdit1.Lines[i])) > 0 then
Button3.Click;
sleep(200);
if Pos('Rechtsdrehen', AnsiLowerCase(RichEdit1.Lines[i])) > 0 then
Button4.Click;
sleep(200);
end;
end;
erscheint alles auf dem button, aber dir buttons 3+4 werden nie gedrückt