Was ist bei dieser function die eine Tsrtings verarb. falsch

**Dragon27**

Hallo,

ich bekomme bei dieser unteren Funktion immer die Fehlermeldung "Abstrakter Fehler".... Kann mir hier jemand helfen?

Diese Function löscht alle Leerteichen und Leerzeilen die nicht dazugehören...

zusammenfalten · markieren

Delphi-Quellcode:

			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;

Danke für eure Hilfe!

Gruß

Andy

Was ist bei dieser function die eine Tsrtings verarb. falsch

Was ist bei dieser function die eine Tsrtings verarb. falsch

Forumregeln