//因為檔名可能有大小寫問題,全轉成大寫比較容易判斷 FileName := AnsiUpperCase(FileName); if AnsiStartsStr('NUM', FileName) then begin // 如果 FileName 開頭是 NUM 的話 ...... end else begin // 這段就等於是處理 2005xxxx 的 .... end;