比如说我需要在D盘program files文件夹下面生成一个test.txt文件，然后将1~10^3的所有数写入其中，且有一个ProgressBar显示写入的进度，怎么写代码？
谢谢了！
Delphi7的ProgressBar怎么用？且怎样写入文件？
答案:2 悬赏:60 手机版
解决时间 2021-01-23 09:03
- 提问者网友：姑娘长的好罪过
- 2021-01-22 19:47
最佳答案
- 五星知识达人网友：神也偏爱
- 2021-01-22 19:58
新建一个工程，拖一个进度条上去，加上下面的函数，调用一下即可
procedure TForm1.WriteNumber();
var
i: Integer;
list: TStringList;
FileName: string;
begin
FileName := 'D:\program files\test.txt';
if (not FileExists(FileName)) then
begin
CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, CREATE_NEW, FILE_ATTRIBUTE_NORMAL, 0);
end;
ProgressBar1.Min := 0;
ProgressBar1.Max := 1000;
list := TStringList.Create;
for i := 1 to 10 * 10 * 10 do
begin
list.Add(IntToStr(i));
ProgressBar1.Position := i;
end;
list.SaveToFile(FileName);
end;
procedure TForm1.WriteNumber();
var
i: Integer;
list: TStringList;
FileName: string;
begin
FileName := 'D:\program files\test.txt';
if (not FileExists(FileName)) then
begin
CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, CREATE_NEW, FILE_ATTRIBUTE_NORMAL, 0);
end;
ProgressBar1.Min := 0;
ProgressBar1.Max := 1000;
list := TStringList.Create;
for i := 1 to 10 * 10 * 10 do
begin
list.Add(IntToStr(i));
ProgressBar1.Position := i;
end;
list.SaveToFile(FileName);
end;
全部回答
- 1楼网友：低血压的长颈鹿
- 2021-01-22 20:42
楼主可以看看这个performance progressbar http://www.windowsphonegeek.com/articles/wp7-performanceprogressbar-in-depth
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯