請教各位前輩 小弟想製作一個建檔程序 如何製作判斷如果c:\下沒有test.txt 就自行建立一個test.txt檔 TOMMY

------
TOMMY

var fHnd: Integer;
begin
  if not FileExists('C:\test.txt') then begin
    fHnd := FileCreate('C:\test.txt');
    try
      if fHnd <> -1 then
        ; // 表示檔案 create 成功
    finally
      FileClose(fHnd);
    end;
  end;
end;
 

感謝站長的指導... 想在請問一下～ 小弟設了一個maskedit在FORM中 maskedit 的 editmask 設為'short time' character blanks設為'0' 執行程式時,我要設時間為'08:10' 但是會出現錯誤訊息 是不是不能出現'0'? 想請教一下為什麼會這樣？ TOMMY

------
TOMMY

1.小弟不是站長 :) 2.會出現什麼錯誤訊息？

引言: 1.小弟不是站長 :) 2.會出現什麼錯誤訊息？

SORRY!! 不過還是經常承蒙您的照顧 錯誤訊息是這樣的... 'EDBEditError with message 'Invalid input value. Use escape key to abandon changes.' 輸入後按下ENTER 就會出現錯誤訊息 TOMMY

很奇怪的是您說 TMaskEdit 有問題 怎麼錯誤訊息是 EDBEditError？ 另外, 設定 TMastEdit 的 EditMask 後 如果不是它限制範圍內的字元, 是沒辦法 keyin 進去的 您的問題是在 TDBEdit 那邊

引言: 很奇怪的是您說 TMaskEdit 有問題 怎麼錯誤訊息是 EDBEditError？ 另外, 設定 TMastEdit 的 EditMask 後 如果不是它限制範圍內的字元, 是沒辦法 keyin 進去的 您的問題是在 TDBEdit 那邊

呵呵～ 我也搞不懂耶 明明FORM上只有MASKEDIT一個元件而已.... 不過早上我已經是出來了啦！！ 是因為EDITMASK內的INPUT MASK要設為'!99:99;1;0' 這樣執行後就可以輸入'0' 而不會出現錯誤了 供各位前輩參考一下..... TOMMY