Was ist bei dieser function die eine Tsrtings verarb. falsch

[semo]

Zitat:

Function Tform1.Formatcode(Codesource:Tstrings):Tstrings;
Var liste, code:Tstrings;
i:integer;
begin
i:=0;
liste:=Tstrings.Create;
code:=Tstrings.Create;
for i:=0 to Codesource.Count-1 do begin
if trim(codesource[i])<>''
then begin
code.Add(codesource[i])
end;
end;

for i:=0 to code.count-1 do begin
Liste.Add(trim(code[i]));
end;
Result:=Liste;

end;

--> ohje mineh. das ist ja ein kauderwelsch.....


so in der art müsste das gehen (ist pseydocode, also bitte noch anpassen).
man kann doch direkt mir der liste arbeiten, anstatt weitere anzulegen, da die liste ja ein pointer ist und kein wert (steichwort "call by value" und "call by reference")

Delphi-Quellcode:

procedure Tform1.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
      codesource[i] := stringreplace(codesource[i], ' ', '',[replaceall]);

    Dec(i);
  end;
end;