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

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:

markieren

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:
Edit2.Text := ReverseString(Edit1.Text);

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

markieren

Delphi-Quellcode:

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

Ha, beinahe wörtlich das Gleiche

Hallo und herzlich willkommen im forum!!!!

So sollte es gehen:

markieren

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

Hallo,

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

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

Danke Leute! Ging ja echt schnell!