Allen
2011-06-03
10:43:25
12628
0
0
0
0
Tag:
编程
Delphi技巧
TTTBLOG
利用stringOfChar函数和sleep延时实现进度条一例
今天偶然看到程序中有用到：stringOfChar函数，了解了一下。
它可以输出指定数量的重复字符串，
S := StringOfChar('A', 10);
sets S to the string 'AAAAAAAAAA'.
忽然想到用这个做进度条还是很不错的，试了一下，效果灰常不错!
procedure TForm1.Button1Click(Sender: TObject);varpI,pLen:integer;beginpLen:=100;for pI:=1 to pLen do beginEdit1.text :=StringOfChar('>',pI)+stringOfChar(' ',pLen-pI);sleep(100);form1.Update;end;showmessage('Run Finish!');
评论
