Косяк в Delphi
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, просто мне интересно почему так происходитб мистика какая-то. Кто скажет????
И кроме того - пользуйся тегами - код читать невозможно!
Кроме того:
Код:
for sch:=0 to 100 do ;