Форум программистов, компьютерный форум, киберфорум
Lazarus
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/21: Рейтинг темы: голосов - 21, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 06.04.2017
Сообщений: 16
1

Ошибка при запуске программы: "" is an invalid integer - Lazarus

06.04.2017, 21:21. Показов 4235. Ответов 1
Метки нет (Все метки)

В компиляции не было ошибок. Но при запуске программы и нажатии кнопки вылезает диалоговое окно с данной ошибкой. Помогите пожалуйста.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
procedure TForm1.Button1Click(Sender: TObject);
var px1,px2,px3,px4,px5,py1,py2,py3,py4,x1,x2,x3,x4,x5,y1,y2,y3,y4,xy11,xy21,xy31,xy41,xy51,xy12,
xy13,xy14,xy22,xy32,xy42,xy52,xy23,xy24,xy33,xy43,xy53,xy34,xy44,xy54:integer;
Mx,My,Mx2,Mx3,Dx,Dy,OTKLx,OTKLy,M1,M2,M3,U1,U2,U3,Mxy,Rxy:real;
begin
x1:=StrToInt(Edit1.Text);
x2:=StrToInt(Edit2.Text);
x3:=StrToInt(Edit3.Text);
x4:=StrToInt(Edit4.Text);
x5:=StrToInt(Edit5.Text);
y1:=StrToInt(Edit6.Text);
y2:=StrToInt(Edit7.Text);
y3:=StrToInt(Edit8.Text);
y4:=StrToInt(Edit9.Text);
xy11:=StrToInt(Edit12.Text);
xy12:=StrToInt(Edit10.Text);
xy13:=StrToInt(Edit11.Text);
xy14:=StrToInt(Edit17.Text);
xy21:=StrToInt(Edit13.Text);
xy31:=StrToInt(Edit19.Text);
xy41:=StrToInt(Edit20.Text);
xy51:=StrToInt(Edit18.Text);
xy22:=StrToInt(Edit14.Text);
xy32:=StrToInt(Edit21.Text);
xy42:=StrToInt(Edit22.Text);
xy52:=StrToInt(Edit23.Text);
xy23:=StrToInt(Edit15.Text);
xy24:=StrToInt(Edit16.Text);
xy33:=StrToInt(Edit27.Text);
xy43:=StrToInt(Edit25.Text);
xy53:=StrToInt(Edit24.Text);
xy34:=StrToInt(Edit26.Text);
xy44:=StrToInt(Edit29.Text);
xy54:=StrToInt(Edit28.Text);
px1:=xy11+xy12+xy13+xy14;
px2:=xy21+xy22+xy23+xy24;
px3:=xy31+xy32+xy33+xy34;
px4:=xy41+xy42+xy43+xy44;
px5:=xy51+xy52+xy53+xy54;
py1:=xy11+xy21+xy31+xy41+xy51;
py2:=xy11+xy22+xy32+xy42+xy52;
py3:=xy13+xy23+xy33+xy43+xy53;
py4:=xy14+xy24+xy34+xy44+xy54;
Mx:=(x1*px1)+(x2*px2)+(x3*px3)+(x4*px4)+(x5*px5);
My:=(y1*py1)+(y2*px2)+(y3*py3)+(y4*py4);
Dx:=(sqr(x1)*px1)+(sqr(x2)*px2)+(sqr(x3)*px3)+(sqr(x4)*px4)+(sqr(x5)*px5)-sqr(Mx);
Dy:=(sqr(y1)*py1)+(sqr(y2)*py2)+(sqr(y3)*py3)+(sqr(y4)*py4)-sqr(My);
OTKLx:=sqrt(Dx);
OTKLy:=sqrt(Dy);
Mx2:=(sqr(x1)*px1)+(sqr(x2)*px2)+(sqr(x3)*px3)+(sqr(x4)*px4)+(sqr(x5)*px5);
Mx3:=((x1*x1*x1)*px1)+((x2*x2*x2)*px2)+((x3*x3*x3)*px3)+((x4*x4*x4)*px4)+((x5*x5*x5)*px5);
U1:=Mx;
U2:=Mx2;
U3:=Mx3;
M1:=0;
M2:=U2-sqr(U1);
M3:=U3-3*U1*U2+(2*U1*U1*U1);
Mxy:=(x1-Mx)*(y1-My)*xy11+(x1-Mx)*(y2-My)*xy12+(x1-Mx)*(y3-My)*xy13+
(x1-Mx)*(y4-My)*xy14+(x2-Mx)*(y1-My)*xy21+(x2-Mx)*(y2-My)*xy22+(x2-Mx)*(y3-My)*xy23+
(x2-Mx)*(y4-My)*xy24+(x3-Mx)*(y1-My)*xy31+(x3-Mx)*(y2-My)*xy32+(x3-Mx)*(y3-My)*xy33+
(x3-Mx)*(y4-My)*xy34+(x4-Mx)*(y1-My)*xy41+(x4-Mx)*(y2-My)*xy42+(x4-Mx)*(y3-My)*xy43+
(x4-Mx)*(y4-My)*xy44+(x5-Mx)*(y1-My)*xy51+(x5-Mx)*(y2-My)*xy52+(x5-Mx)*(y3-My)*xy53+
(x5-Mx)*(y4-My)*xy54;
Rxy:=Mxy/(OTKLx*OTKLy);
Label3.Caption:='U1: ' +FloatToStr(U1);
Label4.Caption:='U2: ' +FloatToStr(U2);
Label5.Caption:='U3: ' +FloatToStr(U3);
Label6.Caption:='M1: ' +FloatToStr(M1);
Label7.Caption:='M2: ' +FloatToStr(M2);
Label8.Caption:='M3: ' +FloatToStr(M3);
Label9.Caption:='Mx: ' +FloatToStr(Mx);
Label10.Caption:='My: ' +FloatToStr(My);
Label11.Caption:='Dx: ' +FloatToStr(Dx);
Label12.Caption:='Dy: ' +FloatToStr(Dy);
Label13.Caption:='sigmaX(откл): ' +FloatToStr(OTKLx);
Label14.Caption:='sigmaY(откл): ' +FloatToStr(OTKLy);
Label15.Caption:='Mxy: ' +FloatToStr(Mxy);
Label16.Caption:='Rxy: ' +FloatToStr(Rxy);
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.04.2017, 21:21
Ответы с готовыми решениями:

Ошибка при запуске программы: exception class 'EConvertError' with message "" is an invalid integer
Подскажите пожалуйста что я не так сделал, как исправить ошибку которая появляется при...

Ошибка при компиляции invalid suffix "i64" on integer constant
Подскажите, при компиляции вылетает ошибка ./pluginterfaces/base/ftypes.h:82:33: error: invalid...

Ошибка "invalid qualifier" при запуске кода
Значит, ситуация обстоит следующая. Имеется одна книга, в которой есть форма, помимо неё может быть...

Ошибка при запуске: "Файл C:\lazarus\mingw\bin\gdb.exe не существует"
что за *** установил Lazarus,версия 0.9.30 ,при запуске проекта пишет что этого файла...

1
881 / 584 / 178
Регистрация: 28.02.2017
Сообщений: 2,359
Записей в блоге: 1
06.04.2017, 21:51 2
Какой капец... Одних переменных скока... ох... Что это? Какая была задача? %))

А по поводу ошибки - в каком-то из вашей горы "Text" была пустота...

Добавлено через 50 секунд
Дословно - "Не удалось сконвертировать в число пустоту".
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.04.2017, 21:51

При запуске в списке ошибок появилось 12: "Нельзя преобразовать тип array[1.10000] of integer к integer"
Что написано не так? {Дана последовательность натуральных чисел aj j=1...n (n<=10000). Если в...

Перегрузка оператора "++" и "--" , компилирует, но при запуске программы - ошибка
#include <iostream> #include<ctime> #include<stdio.h> #include<locale.h> #include <windows.h>...

Ошибка при запуске .exe файла из debug: "Приведение строки "Июнь" к типу "Double" является недопустимым"
Если запускать из самого проекта(F5), то все нормально, а если скомпилированный запустить, то...

Ошибка "0" is an invalid integer
Вообще не лез в ту процедуру. Теперь вот так 0 - стало повреждённым целым числом. На ровном месте....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru