Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проверка значения переменной

Страницы: < 1 2 3 >
Motion © (2005-06-05 11:15:00)
Вот часть кода:
begin
n:=5;
label11.Caption:=inttostr(n);

В метке должно выводить 5, а выводит что-то типа -1,734245
Пробую на пустой форме, всё нормально, пробую в программе - ничего не получается. Помогите пожайлуста советом, что это может быть.

lookin (2005-06-05 12:26:00) [21]
[30] ferr © (05.06.05 12:23)

Кстати, точно! С чего бы это после IntToStr появилось 1,7343....?

ferr (2005-06-05 12:23:00) [22]
Бред. В i не должно быть пяти, но и -1,7... тоже.

lookin (2005-06-05 12:22:00) [23]
for i:=0 to 5 do
begin
X[i]:=strtofloat(stringgrid1.Cells[i,0]);
Y[i]:=strtofloat(stringgrid1.Cells[i,1]);
end;
label11.Caption:=IntToStr(i);

А разве в этом примере i после завершения цикла не является неопределенной?

Motion (2005-06-05 12:14:00) [24]
Вот дальше тоже проверяю значения:
for i:=0 to 5 do
begin
X[i]:=strtofloat(stringgrid1.Cells[i,0]);
Y[i]:=strtofloat(stringgrid1.Cells[i,1]);
end;
label11.Caption:=IntToStr(i);

Вместо 5 пишет - -1,734324(тоже самое, что и при n)

Motion (2005-06-05 12:12:00) [25]
Я сначала нажимаю F9, потом смотрю значение

begin...end (2005-06-05 12:09:00) [26]
> Motion © (05.06.05 12:03) [25]

Потому что программа ещё не запущена?

Motion (2005-06-05 12:03:00) [27]
Интерестно почему?

Motion (2005-06-05 12:03:00) [28]
То есть мне написало - что нет доступа к процессу

lookin (2005-06-05 12:02:00) [29]
[22] Motion © (05.06.05 12:02)

Т.е. компиляция прошла? Или что? А результат работы самой программы тоже удовлетворяет?

Motion (2005-06-05 12:02:00) [30]
Я убрал end; и всё нормально пошло

lookin (2005-06-05 12:01:00) [31]
[19] Motion © (05.06.05 11:59)

Бред какой. С этим end не компилируется ничего! Как это Вы умудрились запустить программу при такой компиляции?

Motion (2005-06-05 12:00:00) [32]
В стоке Value пишет - process not accessible

Motion (2005-06-05 11:59:00) [33]
Его убрал - всё пошло.

lookin (2005-06-05 11:56:00) [34]
[16] Motion © (05.06.05 11:55)

В смысле? После того, как убрали end лишний? Так вроде компилироваться сним не должно было...

begin...end (2005-06-05 11:55:00) [35]
> Motion © (05.06.05 11:51) [14]

Теперь запустите программу и наблюдайте за значением nв окне Watch List.

Motion (2005-06-05 11:55:00) [36]
To lookin : Теперь работает

lookin (2005-06-05 11:52:00) [37]
procedure TForm1.Button1Click(Sender: TObject);
var n,i:integer;
begin
n:=5;
label1.Caption:=inttostr(n);
end;это зачем?
for i:=0 to n do
begin
label2.caption:=inttostr(i);
end;
end.

Motion (2005-06-05 11:51:00) [38]
Мне немного не понятно, что нужно зделать. Поставил курсор на строку n:=5, нажал Ctrl+F5, а дальше что?

Motion (2005-06-05 11:49:00) [39]
Вот написал тоже самое, только для частного случая:

procedure TForm1.Button1Click(Sender: TObject);
var n,i:integer;
begin
n:=5;
label1.Caption:=inttostr(n);
end;
for i:=0 to n do
begin
label2.caption:=inttostr(i);
end;
end.

И тоже не работает

Anatoly Podgoretsky (2005-06-05 11:48:00) [40]
Ctrl+F5

Страницы: < 1 2 3 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »