Pascalban hogyan lehet az Edit1. Text mezőbe írt számot százasra kerekíteni LEFELÉ? Tehát pl.190=100 280=200.

pozitív egészek esetében pl. így:

var

ertek: Double;

hossz: Integer;

begin

ertek := StrToIntDef(edt1.Text, -1);

if ertek > -1 then begin

hossz := Length(edt1.Text) - 1;

ertek := ertek / Power(10, hossz);

edt1.Text := FloatToStr(Floor(ertek) * Power(10, hossz));

end;

end;