Topic: дробное число
Доброго времени суток!
скрипт работает, но как только в Edit3 ввожу дробное число, соответственно skItog становится тоже дробным, выскакивает ошибка "is not a valid integer value"... поле sklad.skKol вещественное число.
var
skItog, skKol, skID: string;
procedure AddMaterialy_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
skKol := SQLExecute ('SELECT skkol FROM sklad WHERE (id=' + IntToStr(AddBanner.TableGrid6.dbItemID) + ');');
skID := IntToStr(AddBanner.TableGrid6.dbItemID);
skItog := FloatToStr( StrToFloat(skKol) - StrToFloat(AddMaterialy.Edit3.Text));
if StrToInt(skItog) >= 0 then
begin
SQLExecute('UPDATE sklad SET skkol=' + skItog + ' WHERE (id=' + skID + ');');
AddBanner.TableGrid6.dbUpdate;
end
else
begin
ShowMessage('На складе материала меньше, чем Вы списываете!');
Cancel := True;
end;
end;