Stringreihenfolge umkehren

**Kytrix**

Hi =)

ich habe einen String "abcd" den ich gerne als "dcba" also genau umgekehrt darstellen würde.
Was ich brauche ist einen algorithmus der die reihenfolge ändert .

Ich habe hier schon einen code dazu gefunden der aber nicht funktioniert da als ergebnis "dabc" raus kommt.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject); 

var 

  i,j:Byte; 

  DummyChar: char; 

  DummyString:String; 

begin 

  for i:=1 to length(edit1.Text) do 

    begin 

      DummyString:=''; 

      Memo1.Lines.add(Edit1.Text); 

      DummyChar:=Edit1.text[1]; 

      for j:= 2 to length(Edit1.Text) do 

        DummyString:=DummyString+Edit1.text[j]; 

      DummyString:=DummyString+dummyChar; 

      Edit1.Text:=DummyString; 

    end; 

end;

Stringreihenfolge umkehren

Stringreihenfolge umkehren

Forumregeln