int64 в цикле
Страницы:
<
1
2
>
Ell © (2006-04-22 12:12:00)
Вот такая программка:
var
Form1: TForm1;
time: longword;
i1_b, i2_b,i3_b,i4_b:byte;
i1_w, i2_w,i3_w,i4_w:word;
i1_lw, i2_lw,i3_lw,i4_lw:longword;
i1_i64, i2_i64, i3_i64, i4_i64:int64;
...
procedure TForm1.FormShow(Sender: TObject);
begin
time:= GetTickCount;
for i1_b:=0 to 255 do for i2_b:=0 to 255 do for i3_b:=0 to
255 do
for i4_b:=0 to 10 do;
Form1.Label1.caption:=IntToStr(GetTickCount-time);
time:= GetTickCount;
for i1_w:=0 to 255 do for i2_w:=0 to 255 do for i3_w:=0 to
255 do
for i4_w:=0 to 10 do;
Form1.Label2.caption:=IntToStr(GetTickCount-time);
time:= GetTickCount;
for i1_lw:=0 to 255 do for i2_lw:=0 to 255 do for i3_lw:=0 to
255 do
for i4_lw:=0 to 10 do;
Form1.Label3.caption:=IntToStr(GetTickCount-time);
time:= GetTickCount;
for i1_i64:=0 to 255 do for i2_i64:=0 to 255 do for i3_i64:=0
to 255 do
for i4_i64:=0 to 10 do;
Form1.Label4.caption:=IntToStr(GetTickCount-time);
Почему в Label4 показывает 0?
MBo (2006-04-22 12:15:00) [21]
Int64 нельзя делать счетчиком цикла.
Как оно у тебя вообще скомпилировалось?
Страницы:
<
1
2
>
Наверх 
ЧАТ |
Орешник |
|
