uses Math; var aNumber: Real;begin aNumber := 12345.67; edit1. Text := FormatFloat('#,', GaripYuvarla ; // küsüratları almaz edit1. Text := FormatFloat('#,', Floor(GaripYuvarla ; //aşağı yuvarlar edit1. Text := FormatFloat('#,', Ceil(GaripYuvarla ; // yukarı yuvarlarend; -Q-

1. yol function TForm1. GaripYuvarla : Real; var s:string; VirgulNo:byte; sonuc:Real; begin s:=FloatToStr ; VirgulNo:=AnsiPos ; sonuc:=StrToFloat(copy(s,1, VirgulNo+1)); //Virgül+1 basamak alındı s:=copy(s, VirgulNo+2,1); //yuvarlama buna gre yapılacak if StrToInt >=5 then sonuc:=Sonuc+0.1; if StrToInt <5 Then sonuc:=sonuc+0.05; Result:=sonuc; end; 2. yol procedure TForm1. Button1Click ; var x : real ; y :real; begin x:=24.499999; y:=round(x 100)/100; Edit1. Text:=floattostr ; end; sayın müridler bunları buldum araştırmalarım sonucunda ama hiç bi pok anlamadım. hobi olarak uğraşıyorum bi program yazmaya kalkıştım şincik programda levha lçüsü var levha lçüsü edit1 e kalite birim fiyatı edit2 ye yazılcak. edit1 edit2 nin sonucuda label1 e yazılcak. ama ondalıklı fiyat olduğu zaman ondalığın 2 basamağının grünmesini istiyorum. yada yuvarlamasın sadece virgülden sonra 2 basamak grünsün yeter menüden falan ayarlanmazmı bu basit bi şekilde pls Kendi şansımı yaratırım...