各位大大們好 

想請問一下,小弟我有很多檔案要偵測是否存在
scan1:='C:1.exe';
scan2:='C:2.exe';
下面就會變的很多
if FileExists(c:\1.exe) then
Showmessage('錯誤碼01');
end;
if FileExists(c:\2.exe) then
Showmessage('錯誤碼02');
end;

有沒有辦法把它精簡呢?!

用個迴圈+變數去判斷不就可以了...

===================引 用 mjihkimo 文 章===================
各位大大們好

想請問一下,小弟我有很多檔案要偵測是否存在
scan1:='C:1.exe';
scan2:='C:2.exe';
下面就會變的很多
if FileExists(c:\1.exe) then
Showmessage('錯誤碼01');
end;
if FileExists(c:\2.exe) then
Showmessage('錯誤碼02');
end;

有沒有辦法把它精簡呢?!

同感

如果使用 TStringList，就能做更多事了

以這個例子來看
我們可以：
StringList.Add('1.exe');
StringList.Add('2.exe');

for i:=0 to StringList.Count-1 do
begin
if FileExists(varDir StringList[i]) then
ShowMessage(ErrorMsg IntToStr(I));
end;

===================引 用 老大仔 文 章===================
用個迴圈 變數去判斷不就可以了...

===================引 用 mjihkimo 文 章===================
各位大大們好

想請問一下,小弟我有很多檔案要偵測是否存在
scan1:='C:1.exe';
scan2:='C:2.exe';
下面就會變的很多
if FileExists(c:\1.exe) then
‚ ‚ ‚ Showmessage('錯誤碼01');
end;
‚ if FileExists(c:\2.exe) then
‚ ‚ ‚ Showmessage('錯誤碼02');
end;

有沒有辦法把它精簡呢?!

感謝副站長您的回覆 小弟我目前正在試試您貼的方法(卡關中)
等用成功我在把我用好的分享上來 ^^"


===================引 用 GrandRURU 文 章===================
同感

如果使用 TStringList，就能做更多事了

以這個例子來看
我們可以：
StringList.Add('1.exe');
StringList.Add('2.exe');

for i:=0 to StringList.Count-1 do
begin
if FileExists(varDir StringList[i]) then
ShowMessage(ErrorMsg IntToStr(I));
end;

===================引 用 老大仔 文 章===================
用個迴圈 變數去判斷不就可以了...

===================引 用 mjihkimo 文 章===================
各位大大們好

想請問一下,小弟我有很多檔案要偵測是否存在
scan1:='C:1.exe';
scan2:='C:2.exe';
下面就會變的很多
if FileExists(c:\1.exe) then
ƒ‚‚ ƒ‚‚ ƒ‚‚ Showmessage('錯誤碼01');
end;
ƒ‚‚ if FileExists(c:\2.exe) then
ƒ‚‚ ƒ‚‚ ƒ‚‚ Showmessage('錯誤碼02');
end;

有沒有辦法把它精簡呢?!

解答:

procedure TForm1.Button1Click(Sender: TObject);
var
Str: TStringList;
i: Integer;
begin
Str:=TStringList.Create;
Str.Add('C:\1.exe');
Str.Add('C:\2.exe');
Str.Add('C:\3.exe');
Str.Add('C:\4.exe');
Str.Add('C:\5.exe');
Str.Add('C:\6.exe');
Str.Sort;
for i := 1 to Str.Count - 1 do
if FileExists( Str[i]) then
Showmessage('錯誤碼0x000001');
Str.Free;
end;