为了在播放视频时能够自动按照
正确的
顺序依次播放，我对文件进行批量改名，文件名修改成功后，FileListBox1控件中的文件列表为什么不刷新？代码如下：
procedure TForm1.Button2Click(Sender: TObject);
var
i : integer;
s1, s2, s3 : string;
f:file;
begin
for i := 0 to C1.Items.Count - 1 do
begin
s1 := C1.Items.Strings[i];
s2 := copy(s1, length(s1)-5, 2);
if (strtointdef(s2, 0) <= 0) then
begin
assignfile(f,s1);
s3 := copy(s1, 1, length(s1)-5) + '0' + copy(s1, length(s1)-4, 100);
rename(f, s3);
end;
end;
C1.Refresh;
end;

C1就是FileListBox1控件

C1.Items.Strings[i]:=S3;不就完了

c1.update;