for- Schleife : Anfangsvariable aktualisieren

[aaaaaaaaaa_10]

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?

[mkinzler]

Statt For- eine While- oder Repeat-Schleife verwenden oder ein

Delphi-Quellcode:

break;

( weniger Schön)

[aaaaaaaaaa_10]

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.

[mkinzler]

Man sollte eine Laufvariable nicht verändern!

[aaaaaaaaaa_10]

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

[mkinzler]

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

[aaaaaaaaaa_10]

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

[mkinzler]

Zu was brauchst du dann die Schleife?

[aaaaaaaaaa_10]

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

[Stormy]

Ö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.

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

[Kalfany]

Zitat:

Zitat von mkinzler

Man sollte eine Laufvariable nicht verändern!

Nicht nur das, je nach Schleifen-Typ funktioniert das auch gar nicht

[mkinzler]

Bei PosEx() kann man doch den Start-Index setzen

[Neutral General]

Zitat:

Zitat von Kalfany

Zitat:

Zitat von mkinzler

Man sollte eine Laufvariable nicht verändern!

Nicht nur das, je nach Schleifen-Typ funktioniert das auch gar nicht

Mit Pointern gehts ;) :twisted:

[Stormy]

Mal so auf die SChnelle und ungetestet versuch es mal so:

Delphi-Quellcode:

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

[aaaaaaaaaa_10]

Delphi-Quellcode:

   k := 10;
    while k <= Length(head) do
    begin
      TabPos1 := posEx(#9,head,k);
      if TabPos1 <> 0 then
      begin
          TabPos2 := posEx('[',head,TabPos1+1);
          if TabPos2 <> 0 then
          begin
              Length1 := TabPos2-TabPos1;
              MWBeztemp := Copy(head, TabPos1,Length1);
              MWBez := MWBez+#9+MWBeztemp;
              k := TabPos2+1;
          end;
       end
       else begin   !!!!!!
       end;
    end
    else begin     !!!!!!!!
    end;

Hab es jetzt so. Funktionier auch,aber bei den else sagt er, dass EXCEPT oder FINALLY erwartet ?

[Stormy]

Hast du evl. ein end falsch gesetzt oder irgendwo ein Try stehen??
Versuch es mal so:

Delphi-Quellcode:

k := 10;
    while k <= Length(head) do
    begin
      TabPos1 := posEx(#9,head,k);
      if TabPos1 <> 0 then
      begin
          TabPos2 := posEx('[',head,TabPos1+1);
          if TabPos2 <> 0 then
          begin
              Length1 := TabPos2-TabPos1;
              MWBeztemp := Copy(head, TabPos1,Length1);
              MWBez := MWBez+#9+MWBeztemp;
              k := TabPos2+1;
          //end;
       end
       else begin   !!!!!!
       end;
    end
    else begin     !!!!!!!!
    end;
  end;

[aaaaaaaaaa_10]

:wall: ja, klar.. wird zeit dass mittag ist

[Neutral General]

Hi,

PS: Wenn du den else-Block nicht brauchst, musst du ihn auch nicht hinschreiben ;)

Du kannst das ganze so schreiben:

Delphi-Quellcode:

while k <= Length(head) do
begin
  TabPos1 := posEx(#9,head,k);
  if TabPos1 <> 0 then
  begin
    TabPos2 := posEx('[',head,TabPos1+1);
    if TabPos2 <> 0 then
    begin
      Length1 := TabPos2-TabPos1;
      MWBeztemp := Copy(head, TabPos1,Length1);
      MWBez := MWBez+#9+MWBeztemp;
      k := TabPos2+1;
    end;
  end;
end;

Gruß
Neutral General

[Draos]

Delphi-Quellcode:

  i:=10;  
  while i<=Length(Head) do
   if Irgendwas then begin
    ...
    Inc(i,5);
   end else
    Inc(i);

[aaaaaaaaaa_10]

@Neurtral General: ich brauch den else block, hab ihn nur noch nicht "bestückt" :wink: