Allen
2011-06-03
10:43:25
12636
0
0
0
0
網站名稱：利用stringOfChar函数和sleep延时实现进度条一例
網站地址：
利用stringOfChar函数和sleep延时实现进度条一例
今天偶然看到程序中有用到：stringOfChar函数，了解了一下。
它可以输出指定数量的重复字符串，
S := StringOfChar('A', 10);
sets S to the string 'AAAAAAAAAA'.
忽然想到用这个做进度条还是很不错的，试了一下，效果灰常不错!
procedure TForm1.Button1Click(Sender: TObject);
var
pI,pLen:integer;
begin
pLen:=100;
for pI:=1 to pLen do begin
Edit1.text :=StringOfChar('>',pI)+stringOfChar(' ',pLen-pI);
sleep(100);
form1.Update;
end;
showmessage('Run Finish!');
【版權聲明】
本文爲原創，遵循CC 4.0 BY-SA版權協議！轉載時請附上原文鏈接及本聲明。
原文鏈接：https://tdlib.com/am.php?t=9i9SYLVKFaiw
Tag:
编程
Delphi技巧
TTTBLOG