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...
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
Delphi is ......... DELPHI!!