Stringreihenfolge umkehren

[Kytrix]

ok ich habs selber ^^

Delphi-Quellcode:

procedure TMain.Tauschen;
var
  i: Integer;
  Tausch: String;        
begin
  for i:=length(BinaryString) downto 1 do   //"BinaryString" ist ein vorher festgelegter String
    begin
      Tausch:=Tausch+Copy(BinString, i, 1);
      Edit1.Text:=Tausch;
    end;
end;