bir adet buton
bir adet edit ekleyiniz.
edite girilen kelimeyi labelde tersinden gösterir.
Kod: Tümünü seç
procedure TForm1.Button2Click(Sender: TObject);
var
ters:string;
i:integer;
begin
ters:='';
begin
label2.Caption := edit1.Text;
for i:= length(label2.Caption) downto 1 do
ters:= ters+copy(label2.Caption,i,1);
label2.Caption:=ters;
end;
end;
end.