Frage zur Synthax

[Peda]

Hallo!

Ich habe eine kleine Frage, undzwar schreibe ich im moment ein programm und weiß an einer stelle die synthax nicht!
Folgendes Problem:



Der Benutzer gibt in ein Edit-Feld eine beliebige Angabe ein, z.b.: "1§2$3%4" und das Programm soll in einem 2ten Edit-Feld diesen String andersrum ausgeben, sprich "4%3$2§1".
Wie heißt dieser Befehl, bzw. wie realisiere ich es?




Ich bedanke mich schonmal im Vorraus!




Gruß Peda :hi:

[DeddyH]

Hallo, herzlich Willkommen in der DP. Ich weiß gerade nicht, ob es bereits eine fertige Funktion dafür gibt, aber das ließe sich so realisieren:

Delphi-Quellcode:

function ReverseString(const s: string): string;
var i: integer;
begin
  Result := '';
  for i := Length(s) downto 1 do
    Result := Result + s[i];
end;

Ein Aufruf könnte dann so aussehen:

Delphi-Quellcode:

Edit2.Text := ReverseString(Edit1.Text);

[mkinzler]

Gehe die Buchstaben von hinten nach vorne durch und Kopiere diese in einen 2. String

Delphi-Quellcode:

for i := Length( s) downto 1 do
    s2 := s2 + s[i];

[DeddyH]

Ha, beinahe wörtlich das Gleiche :cheers:

[scrat1979]

Hallo und herzlich willkommen im forum!!!!

So sollte es gehen:

Delphi-Quellcode:

 var i : integer;
Begin
    edit2.text := '';
    for i := length(edit1.text) downto 1 do edit2.text := edit2.text + edit1.text[i];
End;

... oh, war waren wohl einige schneller. Naja, jetzt kannst Du Dir einen Code raussuchen, hehe...

SCRaT

[Hawkeye219]

Hallo,

Zitat:

Zitat von DeddyH

Ich weiß gerade nicht, ob es bereits eine fertige Funktion dafür gibt

Es gibt eine fertige Funktion: StrUtils.ReverseString.

Gruß Hawkeye

[DeddyH]

Thx, wieder was dazu gelernt (heißt auch noch gleich) ;)

[Peda]

Danke Leute! Ging ja echt schnell!