Stringliste Umkehren

[Hansa]

Ist das mit dem Downto nicht selbsterklärend ?

Delphi-Quellcode:

unit Test;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Gauges;

type
  TForm1 = class(TForm)
    memo1: TMemo;
    memo2: TMemo;
    btn1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    sl : TStringlist;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

uses DateUtils;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i : Integer;
begin
  sl := TStringlist.Create;
  for i := 0 to 10 do
    sl.Add(IntToStr(i));
  memo1.Lines := sl;    // Stringlist-Inhalt an Memo übergeben
end;

procedure TForm1.btn1Click(Sender: TObject);
var i : Integer;
begin
  memo2.Lines.Clear;
  for i := sl.Count - 1 downto 0 do
    memo2.Lines.Add (memo1.Lines[i]) // in umgekehrter Reihenfolge in 2. Memo schieben
end;

end.

Der Rest, Exchange usw. und sonstige Verrenkungen sind eher entsetzlich.