Inc ( i ) Problemchen

[thomas2009]

Hi

mein Code sucht zwar nach dem String in allen Zeilen aber er findet nur ein String Maximum in eine Zeile.

Wenn er ein String in eine Zeile findet, dann springt automatisch in die nächste Zeile

Also ich mus Inc(i) irgendwo einsetzen, damit meine Code nach dem String in die ganz Zeile merfach sucht

hier ist mein Code

Delphi-Quellcode:

var
          i,s: Integer;
begin
ListBox2.Clear; // alle Strings-Pos hier anzeigen
          for i:=0 to Richedit1.Count-1 do begin
              s := Pos(UpperCase(Edit1.Text),UpperCase(Richedit1.Lines[i]));
              if s <> 0 then
                 ListBox2.Items.Add(Format('%d,%d',[i+1,s]));
// ... nun soll der Code in die selbe Zeile weiter suchen und nicht in die nächste Zeile 
          end;

end;

[Luckie]

PosEx sollte dein Problem lösen.

[hoika]

Hallo,

oder eine andere Schleife nehmen,
z.B. while.


Heiko

[himitsu]

Oder mit For durch die Stringlistzeilen und mit While oder Repeat-Until durch die Zeile.
PosEx wird so oder so benötigt.

[thomas2009]

kann jemand einen Vorschlag mit repeat, while oder PosEx schreiben?

[Matze]

Das ist nicht schwer, daher als Hinweis:
Pos liefert dir die Position im String, an der dein Suchstring gefunden wurde. PosEx macht genau das gleiche, nur kannst du hier zusätzlich im 3. Parameter angeben, ab welcher Position gesucht werden soll.
Diesen Parameter setzt du folglich auf "PosEx + 1" und schon wird im String weiter gesucht.

Der Kopf deiner While-Schleife könnte grob wie folgt aussehen:

Delphi-Quellcode:

AktuellePos := 1;
while (PosEx(UpperCase(Edit1.Text), UpperCase(Richedit1.Text), AktuellePos) > 0)
begin
  AktuellePos := ...;
end;

Das als Hilfestellung.

[thomas2009]

OK, ich möchte "repeat" verwenden

Delphi-Quellcode:

var
          i,s: Integer;
begin
ListBox2.Clear; // alle Strings-Pos hier anzeigen
          for i:=0 to Richedit1.Count-1 do begin
              s := Pos(UpperCase(Edit1.Text),UpperCase(Richedit1.Lines[i]));
              if s <> 0 then
                 ListBox2.Items.Add(Format('%d,%d',[i+1,s]));
// ... nun soll der Code in die selbe Zeile weiter suchen und nicht in die nächste Zeile
repeat
               if i < Length(Richedit1.Lines[i]) then
// ...  was kommt noch ?
               

          end;


end;

[Luckie]

Ist es so schwer in der Hilfe oder in Tutorials mal zu gucken, wie eine repeat-Schleife aussieht?