С той хренью справился, но он терь не правильно отнимает. Какую сумму не вводи в файл он выдает результат = -2,500000000
Код:
if money > 0.25 then
ShowMessage('Услуга платная Стоимость 0,25 коп');
begin
money:= money - 0.25;
AssignFile(money1,'C:\program files\qmessenger\res\temp\money.db');
Rewrite(money1);
Writeln(money1, money);
CloseFile(money1);
ShowMessage('Выполнено');
Хелп!