Delphi 2010 ve Delpi XE2 aynı pc üzerinde kullanımı!
Destek talebi(Lütfen oy verelim!)
Sitemiz üye alımına kapatılmıştır!
! CODEBANK 2012 !
İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.
0 Üye ve 1 Ziyaretçi konuyu incelemekte.
var a, b, c, j : integer; // tam sayı tipinde değişkenlerbegin a := StrToInt(Label1.Caption); // label1 in caption ına 12345 yaz.. for j := Length(Label1.Caption) downto 0 do // döngüyü tersten çalıştırıyoruz.. // label1 in uzunluğundan 0 kadar döndürcek.. begin Label2.Caption := Label2.Caption + Label1.Caption[j]; // label2 nin caption ına 54321 olarak yazdı end; b := StrToInt(Label2.Caption); // b değişkenine labelın caption özelliğini integera çevirerek atama yaptık. c := a + b; // a ve b yi topladık Label3.Caption := IntToStr(c); // label3 ün caption özelliğine C nin değerini atadık.