DocList.Add('abcd');
 DocList.Add('efg');
 TargetDoc :=TFileStream.Create('c:\temp\test.txt',fmShareExclusive);

試問我要如何將DocList寫入到TFileStream?? Thanks!!

tstrings 有savetofile這個method 所以你可以 DocList.savetofile('c:\temp\test.txt'); 發表人 - hahalin 於 2003/11/27 17:27:26

引言: tstrings 有savetofile這個method 所以你可以 DocList.savetofile('c:\temp\test.txt'); 發表人 - hahalin 於 2003/11/27 17:27:26

哦! 我的test.txt已存在, 我是要將TString, 新增在原test.txt內容中

begin
  // ...
  TargetDoc :=TFileStream.Create('c:\temp\test.txt',fmShareExclusive);
  DocList.LoadFromStreeam(TargetDoc);
  DocList.Add('abcd');
  DocList.Add('efg');
  // ...
  DocList.SaveToStream(TargetDoc);
end;

--- Everything I say is a lie.

可是 

 DocList.SaveToStream(TargetDoc);

會出現 Stream write error 吔?? 若由 > 發表人 -

fmShareExclusive 獨占模式 fmOpenWrite 開放讀寫權限 唉...程式這檔子事,有時候真的是在考英文...

引言: fmShareExclusive 獨占模式 fmOpenWrite 開放讀寫權限 唉...程式這檔子事,有時候真的是在考英文...

我知道是fmShareExclusive是獨占模式, 我是希望在我寫入該檔案時, 不要有人和我同時使用該檔, 所以,我才使用fmShareExclusive, 可是使用該模式, 卻會Error , 我是想知道為什麼??

把這句 TargetDoc := TFileStream.Create('c:\temp\test.txt',fmShareExclusive); 改成如下試試: TargetDoc := TFileStream.Create('c:\temp\test.txt', fmShareExcusive or fmOpenWrite); --- Everything I say is a lie.