利用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!');
【版權聲明】
本文爲原創，遵循CC 4.0 BY-SA版權協議！轉載時請附上原文鏈接及本聲明。
原文鏈接：https://tdlib.com/am.php?t=9i9SYLVKFaiw Tag: 编程 Delphi技巧 TTTBLOG