Delphi

[matroskin24]

Люди подскажите как сделать, вот например есть код:

Form8.Table1.Insert;
Form8.Table1.FieldByName('Дата').As String:= Edit1.Text;
Form8.Table1.FieldByName('ГПП-7_ввод1_показания').AsString:= Edit2.Text;

Этим кодом я добавляю информацию в ячейки "Дата" и "ГПП-7_ввод1_показания", а как теперь сделать чтоб когда я нажимал добавить то происходило следующее:
нужно чтоб из данных которые заносяться в ячейку "ГПП-7_ввод1_показания" вычитались предыдущие данные из этой же ячейки, т.е. из данных сегодняшнего числа данные вчерашнего числа, и умножались на 1,8.

[mihali4]

нужно чтоб из данных которые заносяться в ячейку "ГПП-7_ввод1_показания" вычитались предыдущие данные из этой же ячейки, т.е. из данных сегодняшнего числа данные вчерашнего числа, и умножались на 1,8.

Самое простое.
Кто мешает прочитать эти "предыдущие данные", вычесть их из "сегодняшних данных", умножить на 1,8 и вставить в Edit2 ???
(Бред какой-то... Неужели это так сложно для понимания?)

[matroskin24]

Сообщение от mihali4

Самое простое.
Кто мешает прочитать эти "предыдущие данные", вычесть их из "сегодняшних данных", умножить на 1,8 и вставить в Edit2 ???
(Бред какой-то... Неужели это так сложно для понимания?)

Ну вот до меня не доходит как это написать, я вообще не давно начал изучать Delphi. Подскажи, будь добр, если знаешь!
А конкретно до меня не доходит как написать код чтоб из сегодняшнего вычиталось вчерашнее.

[mihali4]

код чтоб из сегодняшнего вычиталось вчерашнее

Ответ:
сегодняшнее-вчерашнее;
"-" - это знак минус.

[matroskin24]

Сообщение от mihali4

Ответ:
сегодняшнее-вчерашнее;
"-" - это знак минус.

Так а как это кодом то записать?

[mihali4]

Выбираем вчерашнюю запись и затем:

var tmp: single;
begin
tmp:=Form8.Table1.FieldByName('ГПП-7_ввод1_показания').Value;
Form8.Table1.Insert;
Form8.Table1.FieldByName('Дата').AsString:= Edit1.Text;
Form8.Table1.FieldByName('ГПП-7_ввод1_показания').Value:=1.8*(StrToFloat(Edit2.Text)-tmp);
Form8.Table1.Post;
end;

Что, трудно хоть одну книгу по Дельфи скачать?

[Шульц]

Ток еще перед этим надо наверно Table1.Last сделать

[matroskin24]

Сообщение от mihali4

Выбираем вчерашнюю запись и затем:

var tmp: single;
begin
tmp:=Form8.Table1.FieldByName('ГПП-7_ввод1_показания').Value;
Form8.Table1.Insert;
Form8.Table1.FieldByName('Дата').AsString:= Edit1.Text;
Form8.Table1.FieldByName('ГПП-7_ввод1_показания').Value:=1.8*(StrToFloat(Edit2.Text)-tmp);
Form8.Table1.Post;
end;

Что, трудно хоть одну книгу по Дельфи скачать?

Вот я сделал а не получаеться, выдает ошибку:
Could not convert variant of type (String) info type (Double)
И как полученный результат записать в поле таблицы Form8.Table1.FieldByName('ГПП-7_ввод1_результат').

[mihali4]

Сообщение от Шульц

Ток еще перед этим надо наверно Table1.Last сделать

А бог его знает, как там записи упорядочены...
Продолжите с автором, пожалуйста, а то я уже начинаю нервничать
Потому как вот этот вопрос "И как полученный результат записать в поле таблицы Form8.Table1.FieldByName('ГПП-7_ввод1_результат')." меня просто убивает.

[matroskin24]

Сообщение от mihali4

А бог его знает, как там записи упорядочены...
Продолжите с автором, пожалуйста, а то я уже начинаю нервничать
Потому как вот этот вопрос "И как полученный результат записать в поле таблицы Form8.Table1.FieldByName('ГПП-7_ввод1_результат')." меня просто убивает.

Как записать я знаю, я имелл виду вот как все это сделать что мне надо было и одновременно записать туда куда надо, может я в коде не туда пишу просто то у меня и ошибки.