virgülden sonraki iki basamğı almak?

[Kaptan]

real bir değişkende virgülden sonraki iki basamağı almak istiyorum.Elimde kitap da yok.Komutunu bilenlerin cevabını bekliyorum.

[husonet]

uzun yol ama stringe çevir virgülü bul ve 2 karakter sayarak al.

Kolay Gelsin...

[XeoN]

sonikikarakter.text:=copy(ansireversestring(floattostr(11,55)),1,2);

[Query]

frac komutu işine yarayacaktır.

Kod: Tümünü seç

aa := Frac(55,41);

aa := 0,41

[rsimsek]

Babadan kalma yöntem de şudur;

Kod: Tümünü seç

Sayi := int(1234.567890123 * 100) / 100;

eğer noktadan sonra 3 basamak kalacaksa 100 yerine 1000 olacak. yuvarlama da yapılacaksa int() yerine round() kullanılmalı.

[Kaptan]

Teşekkürler.