for- Schleife : Anfangsvariable aktualisieren

[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