[DELPHI] Wyrazy wspak problem

[leska]

Witam ! Mam taki problem mianowicie pisze program jako pracę domową na jutro.Program po wpisaniu w edit slowo wyswietla jest wspak.Tylko jest taki problem ,ze po wpisaniu slowa Damian wyswietla sie naimaD.Co mam zrobic zeby wyswietlal sie napis Namiand ? ; D

Kod na wspak

var
a,i:integer;
slowo,slowo1:string;
begin
label1.Caption:='';
slowo:=edit1.Text;
a:=length(slowo);
for i:=1 to a do
begin
    label1.caption:=label1.caption+copy(slowo,a+1-i,1);;

 

[Legalnl]

wez tak:

var
x:integer;
begin
x:= length(edit1.text);
label1.caption := ''
repeat
 label1.caption  :=  label1.caption + edit1.text[x];
 dec(x);
until x = 0;

powinno dzialac jezeli nie to przypisz zawartość edit do zmiennej string i zamiast edit1.text wpisz tą zmienną. w kazdym razie powinieneś skorzystać z [] (indexu?)