3月 17

delphi中goto用法

var
i:=1;
label
jump;
begin
if i=1 them
begin
goto jump;
end;
jump:
end;

3月 17

产生随机数

delphi7 产生随机数

function RndNumber(i:integer):integer; //产生随机数的函数
begin
randomize; //每次都不一样，这句必须要
RndNumber:=random(i);
end;

3月 17

在delphi 7中使用idhttp抓取网页，造成窗口无反应的假死状态。通过搜索获得两种方法。

1.写在线程中，但是调用比较麻烦

2.使用delphi 提供的idantifreeze（必须安装indy）。在indy misc中将idfreeantifreeze放入程序中，

将OnlyWhenIdle状态修改为False即可。方便简单。