Arkadaşalar delphide hesap makşnesi yaptım fakat ben sonucun kac basamaklı olduğunu(digit deniliyor sanırım basamağa) bulan kod lazım bir turlu bulamadım sizin bu konu hakkında fikriniz varsa lutfen yardım edin cok acil lazım... Benim buna cozumum;

var
say:real;
begin
say:=strtofloat(edit1.Text);
if (say>0) and (say9) and (say99) and (say