Formatlı Yazılım

[vedatkaba]

Arkadaşlar herkese merhaba ve kolay gelsin

function TForm9.binlik(s: real): string;
begin
result:=formatfloat('###,###,###',s);
end;

Böyle bir fonksiyon tanımlı

Edit1 deki sayıyı ben yazdıkça kendisi formatlı olarak yazmasını istiyorum ama change olayında hata veriyor.

Procedure Tform.edit1.change(sender:Tobject);
begin
edit1.text:=binlik(strtofloat(edit1.text));

bu işlemin başka bir yolu varmı....

Formatlı yazılan iki sayıda cebir işlemlerinde hatalrla karşılaştım.sorunu kafamda çözdüm ama çok uzun bir yol bende pratiğini yapmak istiyorum.Fikri olan arkadaşlar da yardım rica ediyorum.

Kolay gelsin........

[fahrettin]

zaten formatli bir sekilde gosteren componentler var....

Tabi verdigi hayati soylemediginiz icin ne oldugunu bilemiyorum ama benim gordugum hata

strtofloat(edit1.text) satirinda icinde , veya . karakteri olan bir stiringi float'a donustururken problem cikacaktir....

Ama bu yontemdeki hatayı cozecek olursak... Fonksiyonunuza S parametresini string tipinde gonderin... ve fonksiyonun icinde once bu string icindeki , ve . karakterlerini temizleyin...

Kolay gelsin....

[vedatkaba]

Tamam Anladımda hatayı verdiği yer formatlı yani rakamın arasında . olduğu zaman veriyor.

. sayıyı toplamıyor.

[fahrettin]

Vedat Bey, malumunuz hatanın ne oldugunu ve tam olarak nerede oldugunu bilmeden yardimci olmak zor. ikinci mesajınızda da sadece hata veriyor ibaresi var. Yardım alabilmek icin hatanın ne oldugunu belirtmelisiniz...

* Sorun belirten mesajlarınızda, gerekli olabilecek detayları olabildiğince açık bir şekilde yazmanız yine sorununuza çabuk çözüm bulunması açısından önemlidir. Bir hata mesajı alıyorsanız, hata mesajını ve varsa numarasını yazın veya veritabanı ile ilgili bir soru soruyorsanız kullandığınız veritabanını ve erişim componentlerini yazın.

yine tahminen eger . (nokta) dan kastınız decimal separator ise benim kastetigim stringin icindeki thousand seperator'lari temizlemek... Makinanin regional settings ayarlarina gore thousand seperator . veya , olabilir.... Bunu da galiba thousandseperator isimli degiskenden ogrenebiliyoruz...

[husonet]

husoedit komponentini kur

Kolay Gelsin...