我有一個1.TXT文字檔 用assignFile(F,'C:\1.TXT)去打開再還沒有CLOSE檔案前 用記事本去打開1.TXT時會出現"此檔案已被打開" 請問各位大大assignFile函數是否沒把開啟的檔案分享出來給別人用呢 用甚麼方式才能解決這問題

請問一下你一定要用AssignFile來開嗎？如果用TStringList.LoadFromFile及TStringList.SaveToFile可以嗎？ Ian

用以下代码：

 TBlobField(AdoOAEAttach.FieldByName('attach')).savetofile('C:\WINNT\TEMP\Temp.'   sPostFixName);
//  TBlobField(QryMaster.FieldByName('DocContent')).SaveToFile('temp.doc');
// 呼叫對應的應用程式,將文件開啟
      ShellExecute(Application.handle, pchar('OPEN'), pchar('C:\WINNT\TEMP\Temp.'   sPostFixName), nil, nil, SW_SHOWNORMAL);
      AdoOAEAttach.Active := False; 

引言: 我有一個1.TXT文字檔 用assignFile(F,'C:\1.TXT)去打開再還沒有CLOSE檔案前 用記事本去打開1.TXT時會出現"此檔案已被打開" 請問各位大大assignFile函數是否沒把開啟的檔案分享出來給別人用呢 用甚麼方式才能解決這問題 < face="Verdana, Arial, Helvetica"> procedure TForm1.Button1Click(Sender: TObject); var F: TextFile; s:string; begin if FileExists('C:\1.TXT') then AssignFile(f,'C:\1.TXT') else begin showmessage('文件不存在'); exit; end; reset(f); while not eof(f) do begin Readln(f,s); { Read first line of file } end; Edit1.Text := s; // closefile(f); 即使不要这句用記事本照样能打开1.TXT,也没报错 是不是你写法上有什么遗漏,参考看看 ——行径窄处，留一步与人行—— ——

感謝先進回覆 我最主要問題是當打開1.TXT之後也要將1.TXT分享給別程式使用 vb有函式可打開,而且是分享狀態 assignFile(F,'C:\1.TXT)就不行,而且當同時我的程式和別人同時開啟就出現error message

Hi, 試試 FileOpen function 是不是可以達到你要的需求, 其 open mode 有以下參數可用:

  const        fmCreate         = $FFFF;
    fmOpenRead       = $0000;
    fmOpenWrite      = $0001;
    fmOpenReadWrite  = $0002;        fmShareCompat    = $0000 platform;
    fmShareExclusive = $0010;
    fmShareDenyWrite = $0020;
    fmShareDenyRead  = $0030 platform;
    fmShareDenyNone  = $0040;

timhuang先進 請問有沒有範例或簡易說明如何使用 謝謝

deity先進 你的方式我也用過 AssignFile(f,'C:\1.TXT') 再打開時,另一程式正寫入,我方程式將出現error io/32

您好﹗    我覺得問題應是在您在AssignFile方法的孌數設定上﹐您應是將AssignFile(F, ***)中的F變數設定為TextFile形態吧﹐并且是Rewrite方法來開啟可讀寫的檔案﹐這時﹐在沒有使用CloseFile方法之前﹐再次触發開啟檔案的方法時﹐就會出現I/O Error 32的錯誤信息﹐您可試試將AssignFile(F, ***)中的F變數宣告為File﹐或者依舊使用TextFile形態﹐但使用ReSet方法來開啟檔案﹐應就可以了﹒ 附﹕AssignFile方法變數宣告形態說明 1﹒當檔案變數被宣告為File時﹐當此檔案被AssignFile后﹐可被任何檔案開啟方法重复開啟﹒ 2﹒當檔案孌數被宣告為TextFile時﹐當此檔案被AssignFile﹐并使用ReWrite方法開啟后﹐在CloseFile之前﹐不能再次触發開啟檔案動作﹐否則出錯﹕I/O Error 32﹒ 至于您所提到的使用記事本去打開此檔案時出現的"此檔案已被其它程式開啟"的現象﹐我也沒有遇到﹐您可參考一下deity兄的範例﹐是否您的程式碼中有錯誤﹒ FileOpen function範例如下﹕

Var
  FileHandle : Integer; //此Function的回傳值是一個Integer
begin
  FileHandle := FileOpen('D:\Xin.txt', fmOpenRead); //唯讀方法開啟
  if FileHandle > 0 then //正常開啟時﹐回傳值大于0
    begin
      ShowMessage('檔案成功開啟');
      FileClose(FileHandle);
    end
  else
    ShowMessage(SysErrorMessage(GetLastError));
end;

參考看看﹗ ========================= 大病初愈﹐休養調整中... =========================

------
忻晟