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...

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

[BenjaminH]

Hallo,
hier gabs das schonmal.
TStringList statt TStrings wird wohl das beste sein.

Viele Grüße

[mkinzler]

TStrings ist eine abstrakte Klasse, eine implementierende Subklasse wäre z.B. TStringList

Delphi-Quellcode:

Function Tform1.Formatcode(Codesource:Tstrings):Tstrings;
Var liste, code:Tstrings;
i:integer;
begin
i:=0;
liste:=TStringList.Create;

[Christian Seehase]

Moin Andy,

ausserdem ist es immer sehr ungünstig ein Objekt als Rückgabewert einer Funktion zu verwenden, da man sich leicht ein Speicherleck einhandeln kann, da man leicht die Übersicht verlieren kann, wer wann das Objekt freigeben darf/muss.

[Hawkeye219]

Zitat von Christian Seehase:

[...]da man sich leicht ein Speicherleck einhandeln kann[...]

Eines ist ja schon drin - die (überflüssige) Liste code wird nicht freigegeben...

Gruß Hawkeye

[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;

[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

[semo]

Delphi-Quellcode:

      Codesource.Insert(i,trim(codesource[i]));
      Codesource.Delete(i+1);

kannst du dir doch sparen indem du wie von mir vorher angesprochen direkt den string bearbeitest
per

codesource[i] := trim(codesource[i]) wozu also die liste expandieren?

wobei noch anzumerken wäre, dass du in deinem ersten beitrag gesagt hast, dass du alle leerzeichen entfernen möchtest....
dann wäre nämlich
codesource[i] := stringreplace(codesource[i], ' ', '',[replaceall]); ideal.

also: nächstes mal ein bissl genauer ausdrücken