var
i:=1;
label
jump;
begin
if i=1 them
begin
goto jump;
end;
jump:
end;
3月
17
Category Archives: delphi
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放入程序中，
将On
7月
30
delphi多线程CreateThread函数
简单介绍多线程API 函数：
构建线程：
CreateThread(参数1，–安全属性（一般=Nil，默认安全属性）
参数2，–线程堆栈尺寸（一般=0，与主线程相同长度，而且可以根据需要自动变化）
参数3，–指向函数名指针，@函数名，这个参数十分重要，不正确将无法调用成功。
参数4，–用户需要向线程传递的参数，是一个指向结构的指针，不需传递参数时，为Nil。
参数5）–传入与线程有关的一些参数，例如：
Create_SUSPENDED 创建一个挂起的线程；
0 创建后立即激活。
7月
26
delphi7修改系统时间
添加edit和两个button,第一个button获得系统时间，第二个button按照edit中的时间设置本地系统时间。
注意：设置时间格式不要修改。delphi7通过。
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=FormatDateTime(‘yyyy-mm-dd hh:mm’,now);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
SysTime:TSystemTime;
MyTime:TDateTime;
begin
MyTime:=StrToDateTime(Edit1.Text);
DateTimeToSystemTime(MyTime,SysTime);
SetLocalTime(SysTime);
end;