Topic: Проблема с типами данных Integer<=>String
Таблица plan:
поля числовые (по умолчанию 0)
lekz
lab
prakt
скрипт подсчета суммы и отображения её на форме редактирования
var
p1: string;
p2: string;
p3: string;
p4: integer;
procedure plan_edit_Edit8_OnChange (Sender: TObject);
begin
p1:=plan_edit.Edit8.Text; //lekz
p2:=plan_edit.Edit9.Text; //lab
p3:=plan_edit.Edit10.Text; //prakt
p4:=StrToInt(p1)+StrToInt(p2)+StrToInt(p3);
plan_edit.Edit11.Text:=IntToStr(p4);
end;Компилятор ошибки не выдаёт, но при попытке открыть форму plan_edit для редактирования ошибка "" is not a valid integer value (см. присоединенный файл)
Где несоответствие типов, подскажите?
Post's attachments
Image015.jpg 163.76 kb, 192 downloads since 2018-03-22
Yana
adiz.zip