[delphi] neta

mam w label'u tekst np. neta i jak zrobic by po wcisnieciu button'a tekst zmienil sie np. na tena ,chodzi mi to by litery wyrazu zmienialy kolejnosc

Tu masz kod:
[code]
var
i:Integer;
s:String;
begin
s:=Label1.Caption;
Label1.Caption:='';
for i:=1 downto Length s do
begin
Label1.Caption:=Label1.Caption+s[i];
end;
end;
[/code]
:)

mam w label'u tekst np. neta i jak zrobic by po wcisnieciu button'a tekst zmienil sie np. na tena ,chodzi mi to by litery wyrazu zmienialy kolejnosc

var
s1, s2: string;
i : integer;
begin
Randomize;
s1 := Label1.Caption;
while Length(s2)