string durchsuchen und tipps zu while + for-schleifen

[delphi-n]

danke, funktioniert perfekt :thumb:

[edit]:

in

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var S: string;
begin
  S := Edit1.Text;
if Pos('hallo', AnsiLowerString(S)) > 0 then
Button1.Visible:=false;
end;

MUSS der zu suchende text (hier hallo) KLEIN geschrieben werden, egal wie der Nutzer ihn dann schreibt, sonst klappt es nicht!

Ist mir beim Testen nur so aufgefallen

[delphi-n]

jetzt hab ich

Delphi-Quellcode:

if Pos('schritt', AnsiLowerCase(S)) > 0 then
begin
 Button1.Click;
 i:=i+1;
 exit;
 end;
if Pos('hallo', AnsiLowerCase(S)) > 0 then
begin
 Button3.Click;
 i:=i+1;
 break;
 end;

was muss ich anstatt break oder exit einsetzten, dass der zurück zur while schleife geht (also nicht aussteigt)?

[DeddyH]

Welche Schleife? Zeig mal mehr Code.

[delphi-n]

Delphi-Quellcode:

procedure TForm2.Button5Click(Sender: TObject);
var i:integer;
s:string;
begin
i:=0;

while i<RichEdit1.Lines.Count do
begin
   sleep(100);
  S := RichEdit1.Lines[i];
  Button5.Caption:=S;

if Pos('schritt', AnsiLowerCase(S)) > 0 then
begin
 Button1.Click;
 i:=i+1;
 break;
 end;
if Pos('hallo', AnsiLowerCase(S)) > 0 then
begin
 Button3.Click;
 i:=i+1;
 break;
 end;




end;
end;

das erste macht er, beim zweiten hört er auf

[DeddyH]

Dann lass die breaks doch einfach weg.

[Der.Kaktus]

Zitat:

Zitat von delphi-n

Delphi-Quellcode:

procedure TForm2.Button5Click(Sender: TObject);
var i:integer;
s:string;
begin
i:=0;

while i<RichEdit1.Lines.Count do
begin
   sleep(100);//<<-----------------------------------------ersetze es mit Application.Processmessages....aber das brauchste nur, wenn sehr grosses Richedit ist ;-)
  S := RichEdit1.Lines[i];
  Button5.Caption:=S;// <<----was wird das?..zum Schnelllesen? ..musste aber Button5.Update evtl. einfuegen..sonst siehst Du nix!

if Pos('schritt', AnsiLowerCase(S)) > 0 then
begin
 Button1.Click;
 i:=i+1;
 break;
 end;
if Pos('hallo', AnsiLowerCase(S)) > 0 then
begin
 Button3.Click;
 i:=i+1;
 break;
 end;




end;
end;

das erste macht er, beim zweiten hört er auf

[delphi-n]

der soll ja die nächste zeile vom richedit nehmen.

[Matze]

Kurz was dazu:

Zitat:

Zitat von delphi-n

MUSS der zu suchende text (hier hallo) KLEIN geschrieben werden, egal wie der Nutzer ihn dann schreibt, sonst klappt es nicht!

Ist mir beim Testen nur so aufgefallen

Versuche immer den Code zu verstehen. Der String, mit dem verglichen wird, wird durch "AnsiLowerCase" klein geschrieben. Somit muss der Suchstring ebenfalls klein geschrieben werden.
Es ginge natürlich auch folgendes:

Delphi-Quellcode:

if Pos('HALLO', AnsiUpperCase(S)) > 0 then

Das nur als Hinweis: Also immer versuchen zu verstehen, was man in sein Programm übernimmt. ;)

[DeddyH]

Macht er doch. Aber Du kannst das auch mit einer for-Schleife lösen.

Delphi-Quellcode:

procedure TForm2.Button5Click(Sender: TObject);
var i:integer;
begin
  for i := 0 to RichEdit1.Lines.Count - 1 do
    begin
      //die folgenden beiden Zeilen sind eigentlich sinnfrei,
      //weil das so schnell gehen dürfte, dass man nichts erkennen kann
      Button5.Caption := RichEdit1.Lines[i];
      Application.ProcessMessages;
      if Pos('schritt', AnsiLowerCase(RichEdit1.Lines[i])) > 0 then
        Button1.Click
      else if Pos('hallo', AnsiLowerCase(RichEdit1.Lines[i])) > 0 then
        Button3.Click;
    end;
end;

[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 :thumb:


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