for- Schleife : Anfangsvariable aktualisieren

[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;