給你一個字串 請問該如何判斷是網路空間上的檔案還是硬碟空間的檔案呢 例如 edit1.text := 'c:\2.txt'; edit2.text := 'http://delphi.ktop.com.tw/vm.gif'; 那該如何判別是網路空間上的檔案還是硬碟空間的檔案呢 或許可以用擷取字串的前四個字做判別 可是當他化成192.100.222.11/1.exe 那又該如何判斷呢 請賜教............... 豬ㄚ你!!這麼簡單的東西...你都不懂......= =....誰叫我是新手呢...@ @

直接用 FileExists 這個 function 來判斷試試

begin
  if FileExists(Edit2.Text) then
    ShowMessage('存在')
  else
    ShowMessage('不存在')
end;

function IsLocalDrive(aFileName: string): Boolean;
var
 aDrive: string;
begin
 aDrive := ExtractFileDrive(aFileName);
 if (GetDriveType(PAnsiChar(aDrive)) = 2) or
    (GetDriveType(PAnsiChar(aDrive)) = 3) then
   Result := True
 else
   Result := False;
end;    if IsLocalDrive(edit2.text) then
begin 
  { 為本機磁碟路徑 }
end;

試試吧！ PS.使用 FileExists('\\192.100.222.11\AC\1.exe') 這樣也會成功ㄡ，會誤判的！ 發表人 - wameng 於 2004/11/29 16:57:27