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;