Einzelnen Beitrag anzeigen

Kytrix

Registriert seit: 26. Nov 2007
54 Beiträge
 
#1

Stringreihenfolge umkehren

  Alt 27. Mär 2008, 18:27
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.

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;
  Mit Zitat antworten Zitat