1.Application.ProcessMessages
防止进程阻塞,使程序能够响应消息队列中的其他事件。
比如你下载一个大文件的时候,还未下载成功,那么整个程序可能阻塞在这里,而不响应其他事件。但是,如果你在下载过程中,使用了processmessages就可以在下载的同时处理其他事情,响应鼠标事件等。
2.randomize
以下事例将随机产生0到100的数字,如果不使用Randomize函数,得到的结果将有规律性。
procedure TForm1.btn1Click(Sender: TObject);
begin
randomize;
ShowMessage(IntToStr(Random(100)));
end;
3.SameText
var
s1,s2: string;
b1,b2: Boolean;
begin
s1 := 'C:/Temp';
s2 := 'c:/temp';
b1 := SameText(s1, s2); //True
b2 := s1 = s2; //False
ShowMessage(BoolToStr(b1,True) + ' - ' + BoolToStr(b2,True));
end;