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;varp:variant; procedure TForm1. Button1Click ;beginp:=label1. caption;label1. caption:= +('50')end; byle yaptığımda p50 diye gzüküyor yanyana eklio bu durumu nasıl halledebilirim?

hocam o zmn da incompatible types: string and integer diyo :| bunu nası halletçez? :S

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;begin100 := string değeri sayı ya çevir (100) + 50 ekle ;end;sonuç=150 2. kez basarsa 150 := string değeri sayı ya çevir (150) + 50 ekle ;sonuç=200selametle :)

pardon kod yanlış oldu :)label1. caption:=inttostr(strtoint(label1. caption)+50);olucak ;) inttostr = sayıyı stringe dnüştür. strtoint = string i sayıya çevir anlamına geliyor.

hoca Allah razı olsun valla acaip işimi grdü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 =)