Forum
Aktif konular
Üyeler
Kurallar
Arama
Delphide Labele Sayı Eklemek Delphide Labele Sayı Eklemek
-
başlık ne kadar açıklayıcı oldu bilmiyorum ama olay şu; elimizde bir button ve label var. labelde 100 yazıyor, buttona bastığımızda labele 50 eklenmesi gerekiyor. üstüste bastığınızda +50 +50 50şer 50şer artacak olay bu.. ben şu şeklide yaptım;
var
p:variant;
procedure TForm1.Button1Click(Sender: TObject);
begin
p:=label1.caption;
label1.caption:=('p')+('50')end;
böyle yaptığımda p50 diye gözüküyor yanyana eklio bu durumu nasıl halledebilirim?
-
begin
label1.caption:=strtoint(label1.caption)+ 50 ;
end;
label1 in caption ına ilk değer olarak 100 ata bu kod un açılımı şöledir;
begin
100(ilk atanan değer olduğu için):= string değeri sayı ya çevir (100) + 50 ekle ;
end;
sonuç=150
2. kez basarsa
150(ilk atanan değer olduğu için):= string değeri sayı ya çevir (150) + 50 ekle ;
sonuç=200
selametle :)
-
hocam o zmn da incompatible types: string and integer diyo :| bunu nası halletçez? :S
-
pardon kod yanlış oldu :)
label1.caption:=inttostr(strtoint(label1.caption)+50);
olucak ;)
inttostr = sayıyı stringe dönüştür.
strtoint = string i sayıya çevir
anlamına geliyor.
-
hoca Allah razı olsun valla acaip işimi gördün :) uzaktan bakınca pek önemli bi kod deilmiş gibi duruo ama bunu onlarca yerde kullanacam o yüzden önemli benim için :)
cosmic de buna benzer bi kod vermişti ama çalışmadı cenabetin verdiği =)
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla