Merhaba arkadaşlar,
Konuyu doğru yere mi açtım bilemiyorum yanlış ise özür dilerim.
Sadece parasal giriş için maskedite ihtiyacım vardı fakat bulamadım elinde hazır dosyası olan varmı acaba?
Veya başka bir çözüm sunabilecek varmı? 5,00 olarak giricek mesela bunu yazdıktan sonra 5,00 TL olarak gösterecek şekilde..
Parasal Giriş Maskedit
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Re: Parasal Giriş Maskedit
5,00 TL olarak nerede göstereceksiniz ?
Örnek: label.caption:= 5,00 +'TL'; gibi
Örnek: label.caption:= 5,00 +'TL'; gibi
İşi bilen yardım eder, az bilen akıl verir, bilmeyen eleştirir, yapamayan ise çamur atar...
Re: Parasal Giriş Maskedit
hocam bunu yapabildimde ihtiyacım şuan sadece rakamsal giriş ve kuruş için virgül işareti koyulacak bir edit alanı [ ekstrası olarakda 1000 tl yi 1.000 yapacak şekilde(bu özellik olmasada olur ) ]brs yazdı:5,00 TL olarak nerede göstereceksiniz ?
Örnek: label.caption:= 5,00 +'TL'; gibi
Re: Parasal Giriş Maskedit
Sizi doğrumu anladım bilemiyorum.
Kod: Tümünü seç
procedure TForm2.Button1Click(Sender: TObject);
begin
Edit1.Text := FormatFloat('##,####', StrtoFloat(Edit1.Text));
end;
İşi bilen yardım eder, az bilen akıl verir, bilmeyen eleştirir, yapamayan ise çamur atar...
Re: Parasal Giriş Maskedit
Tam olarak bU değildi ama yazdığınız çok işime yaradı teşekkürler.brs yazdı:Sizi doğrumu anladım bilemiyorum.
Kod: Tümünü seç
procedure TForm2.Button1Click(Sender: TObject); begin Edit1.Text := FormatFloat('##,####', StrtoFloat(Edit1.Text)); end;
Re: Parasal Giriş Maskedit
Güle güle kullan...
İşi bilen yardım eder, az bilen akıl verir, bilmeyen eleştirir, yapamayan ise çamur atar...