Was ist bei dieser function die eine Tsrtings verarb. falsch

[Dragon27]

Hallo,

danke für die vielen Antworten!

Ich habe nun den Code umstrukturiert und wollte diesen noch veröffentlichen..... Vielleicht braucht Ihn irgendwer mal:

Delphi-Quellcode:

procedure Formatcode(Codesource:Tstrings);
Var
  i:integer;
begin
  i:=Codesource.Count-1;
  while i > -1 do
  begin
    if Trim(codesource[i]) ='' then
      codesource.Delete(i)
    else begin
      Codesource.Insert(i,trim(codesource[i]));
      Codesource.Delete(i+1);
    end;
    Dec(i);
  end;
end;

Gruß

Andy