köşeters

Yazdığınız makaleleri ve üyelerimizin işine yarayacağını düşündüğünüz kodlarınızı gönderebilirsiniz. Bu foruma soru sormayın!
Cevapla
tbsoft
Üye
Mesajlar: 1
Kayıt: 07 Haz 2014 09:10

köşeters

Mesaj gönderen tbsoft »

bir adet label
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.
Cevapla