StringList

[Sprint]

Zitat von blackyhb:

ich versuche vergeblich in einer StringListe die Reihenfolge der
Einträge umzukehren

Delphi-Quellcode:

procedure Reverse(const AStringList: TStringList);
var
  I: Integer;
begin

  I := 0;
  while I < (AStringList.Count div 2) do
  begin
    AStringList.Exchange(I, AStringList.Count - I - 1);
    Inc(I);
  end;

end;