Yuvarlama kodu Yardım!

[ccash53]

Arkadaşlar, Bir Kaç Kod Yardımına ihtiyacım var

Mask Editte 1,01 girildiğinde Exitte 10'arlı Şekilde Değer Verilmesi
Örn: 1,01 girildi
1,10 Olacak


Mask Editlerde Formatı dahil boş bırakıldığında Uyarı verilmesi ve işlem Yapmaması..
Ör: _,__ formatında
_,__ ise uyarı verecek
3,__ ise _ olan yerlere 0 yerleştirecek.

Şimdiden İlgilenen Arkadaşlara Teşekkür Ederim..

[cagatay77]

Gece gece uyku tutmayınca şöyle biraz karalayayım dedim algoritmayı değiştirip geliştirebilirsin.

Kod: Tümünü seç

procedure TForm1.cxButton1Click(Sender: TObject);
var
x:real;
i,j:integer;
y:string;
begin
x:=Frac(edit1.EditValue);
y:=copy(formatfloat('0.00',x),3,2);
y:=y+StringOfChar('0',2-length(y));
i:= strtoint(y) mod 10;
if i=0 then i:=10;
j:=10-i;
x:=edit1.EditValue+strtofloat('0,0'+inttostr(j));
showmessage(formatfloat('0.00',x));
end;

[ccash53]

Teşekkür ederim kardeşim en yakın zamanda deneyeceğim..