markieren

Delphi-Quellcode:

    k := 10;
    for j := k to Length(head) do
     begin
       ...
      k := k + 5;
     end;

Wie kann ich verhindern, dass j ab 10 alle Werte durchläuft. Ich möchte, wenn ein bestimmtes Ereignis eintritt erst bei z.b. j = 6 weiter machen und 2-5 auslassen. Ist das irgendwie möglich?

Statt For- eine While- oder Repeat-Schleife verwenden oder ein break; ( weniger Schön)

Es geht darum, dass ich einen String durchlaufen möchte und immer wenn an einer stelle etwas bestimmtes gefunden wurde, erst ab der drittnächsten weitergesucht werden soll.

Man sollte eine Laufvariable nicht verändern!

Aber wie realisiere ich es denn? Ich fange vorne im String an. Dann suche ich das erste #9 und das darauf folgende '[', kopiere das, was dazwischen steht in eine stringvariable und wollte ab der Stelle wo '[' auftrat +1 weitermachen

Verwende Pos()/PosEx() um gezielt zu suchen

zusammenfalten · markieren

Delphi-Quellcode:

 for j := 10 to Length(head) do
    begin
      TabPos1 := posEx(#9,head,j);
      if TabPos1 <> 0 then
      begin
        TabPos2 := posEx('[',head,TabPos1+1);
        ShowMessage(IntToStr(TabPos2));
        if TabPos2 <> 0 then
        begin
            Length1 := TabPos2-TabPos1;
            MWBeztemp := Copy(head, TabPos1,Length1);
            MWBez := MWBez+#9+MWBeztemp;
        end;
      end;
    end;

Dat tue ich bereits

Zu was brauchst du dann die Schleife?

Ohne Schleife würde er doch nur das erste vorkommen von #9 und '[' erkennen und den rest nicht

Öhm wo ist das Problem?
Setze doch eine Variable die sobald dein String gefunden wurde auf 3 gesetzt wird und
am anfang der For-Schleife einen If-Block der das abfragt.

markieren

Delphi-Quellcode:

k := 10;
x := 0;
    for j := k to Length(head) do
     if x = 0 then
     begin
       ...
       k := k + 5;
       if head = 'ab hier übersrpinge die nächsten 3 strings' then x := 4;
     end else dec(x);

Edit: Der Post bezieht sich auf dene Frage bei #3


Gruß
Stormy