String umdrehen

ShinmA

Erfahrenes Mitglied
Hi leute ich bin ein absoluter Delphi anfänger.
ich habe ein problem mit meinem ersten programm,
ich hänge daran einen string umzudrehen.
ein beispiel wäre:

var
text1, text2 : string;
begin
text1 := 'Wurzel';
// text2 : = hier sollte der string umgereht werden...
edit1.text := text2
end;

dann sollte das edit1 feld "lezruW" anzeigen.
ich hoffe ihr könnt mir helfen danke.

ShinmA
 

JoelH

Erfahrenes Mitglied
hmm,

und damit du es selbst programmieren lernst, eine kleine Implementation des ganzen
Code:
function rev(ursprung:String):String;
var h : String;
    i : Integer;
begin
  h := '';
  for i := length(ursprung) downto 1 do
     h := h + ursprung[i];
 result := h;
end;