Pomoc s retezcem – Delphi – Fórum – Programujte.com

pls prosim o pomoc s touto procedurou... mam zadat text a pak mi ho to má vypsat zpet v opacnem poradi napr. zadam Adam a vypise madA... pro vas to bude asi hracka ale ja sem zacatecnik
zacal jsem takhle:

procedure Obrat(var s:string);

var x:array of string;

    i,j:byte;

begin

  for i:=1 to 100 do  begin

  for j:=length(retezec) downto 1 do

  x[i]:=copy(retezec,j,1);

  end;

  Edit2.Text:=x[i];

end;

To Laker :
Staci ti jeden Button a jedn Edit


procedure TForm1.Button1Click(Sender: TObject);
var retazec,obraz:string;
i:integer;
begin
retazec:=Edit1.Text;
obraz:='';
for i:=1 to length(retazec) do obraz:=retazec[i]+obraz;

ShowMessage('Zrkadlom '+retazec+' je '+obraz);
end;

end.