利用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!');