Sıfırları atma

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
Serhat
Üye
Mesajlar: 203
Kayıt: 27 Tem 2014 11:10

Sıfırları atma

Mesaj gönderen Serhat »

Merhaba;

Timer1 Interval değerindeki sayıdan Örnek: 30000 bin ise 30 olarak veya 40000 bin ise 40 olarak matematik işlemleri yaptım :mrgreen: fakat sonuç alamadım Timer1 Interval üç sıfırı nasıl atabilirim.


procedure TForm1.Button1Click(Sender: TObject);
begin
Kalan.Caption := FloatToStr(Timer1.Interval - 1000);
end;
mehmetantalya
Üye
Mesajlar: 189
Kayıt: 30 Eyl 2013 10:17

Re: Sıfırları atma

Mesaj gönderen mehmetantalya »

Kod: Tümünü seç

Kalan.Caption := FloatToStr(Timer1.Interval / 1000); 
cikarma yerine bolme islemi yaparsaniz gidecektir.
Cevapla