StringList

[Jens Schumann]

Hallo Sharky,
ich habe mal einen Kommtar in den Source geschrieben

Zitat von Sharky:

Hier mal ein Beispiel. Dafür habe ich die Funktion nur leicht verändert

Delphi-Quellcode:

function DownToUp (const source : TStringList) : TStringList; // sollte TStrings sein
var
  ndx : Integer;
  dest : TStringList;
begin
  dest := TStringList.Create;
  try
    for ndx := Pred (source.count) downto 0 do
    begin
      dest.Add(source.Strings[ndx]);
    end;
    result.Text := dest.text;  // <- Geht nicht, da kein Result:=TStringList.Create da ist
  finally
    dest.Free;
  end;
end;