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
 
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;
 
Zurück