Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Косяк в Delphi

1.9K
31 января 2006 года
Borland_prog
149 / / 25.01.2006
Я думаю что какой то косяк в компилере делфы
procedure TServer_Form.Timer1Timer(Sender: TObject);
var
sch:integer;
begin
sch:=0;
if not(num_pc=0) then
begin
for sch:=0 to 100 do ;Вот здесь при первой интерации цикла переменной sch присваивается 101 Какого хе ра а если указывать до 99 то sch=100 при первой интерации
begin
if comp[sch].power_on then
begin
comp[sch].SEC:=comp[sch].SEC+1;
IF comp[sch].SEC=59 THEN
BEGIN
comp[sch].SEC:=0;
comp[sch].min:=comp[sch].min+1;
IF comp[sch].min=59 THEN
BEGIN
comp[sch].min:=0;
comp[sch].chas:=comp[sch].chas+1;
END;
END;
zapis_in_stringgrid(stringgrid1,groupbox1,2,comp[sch].num_row,inttostr(comp[sch].chas)+':'+inttostr(comp[sch].min)+':'+inttostr(comp[sch].sec));
end;


if comp[sch].user_login then
begin
comp[sch].SEC_u:=comp[sch].SEC_u+1;
IF comp[sch].SEC_u=59 THEN
BEGIN
comp[sch].SEC_u:=0;
comp[sch].min_u:=comp[sch].min_u+1;
IF comp[sch].min_u=59 THEN
BEGIN
comp[sch].min_u:=0;
comp[sch].chas_u:=comp[sch].chas_u+1;
END;
END;
zapis_in_stringgrid(stringgrid1,groupbox1,4,comp[sch].num_row,inttostr(comp[sch].chas_u)+':'+inttostr(comp[sch].min_u)+':'+inttostr(comp[sch].sec_u));
end;

sch:=sch+1;
end;
end;
end;

Даже посмотрел в ассемблере один хрен присваивает почему-то значение 101. Ни чё понять не могу.
Не ну я конечно переспиал этот код с циклом while, просто мне интересно почему так происходитб мистика какая-то. Кто скажет????
5
03 февраля 2006 года
hardcase
4.5K / / 09.08.2005
Переменная-счётчик цикла - это регистр. поэтому sch:=0; в начале ничего не даст. При каждой итерации попробуй показывать Мессэйдж бокс со значением счётчика.
И кроме того - пользуйся тегами - код читать невозможно!

Кроме того:
 
Код:
for sch:=0 to 100 do ;
зачем тебе 101 раз прокручивать пустой цикл?
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог