StringList

[Sharky]

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

Delphi-Quellcode:

function DownToUp (const source : TStringList) : TStringList;
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;
  finally
    dest.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  foo : TStringList;
  ndx : Integer;
begin
  foo := TStringList.Create;
  try
    foo.AddStrings(Memo1.Lines);
    foo := DownToUp (foo);
    Memo2.Lines := foo;
  finally
    foo.Free;
  end;
end;