file2 := file; a := 0; while (FileExists( path '\' file2) = true) or (FileExists( path '\' file2 '.td!') = true) do begin a := a 1; file2 := inttostr(A) '_' file ; end; try ForceDirectories(path); fs := TFileStream.Create(path '\' file2 '.td!',fmCreate); except file_err := 1; end; 有一個 thread 他會檢查是否有相同的檔名 如果有就給他一個流水號 如 a a_1 , a_2,a_3 但是因為 thread 是一次開五個 所以有些這個檢查程序會出問題 不知道開如何解決

 
var
 LockThis:TCriticalSection； // global variable, prevent other thread enter at same time      LockThis.Acquire;      file2 := file;
  a := 0;      while (FileExists( path   '\'   file2) = true) or (FileExists( path   '\'   file2   '.td!') = true) do
  begin
   a := a 1;
   file2 := inttostr(A)   '_'   file ;
  end;
 try 
  try
   ForceDirectories(path);
   fs := TFileStream.Create(path   '\'   file2   '.td!',fmCreate);
  except
   file_err := 1;
  end;
 finally
  LockThis.Release; 
 end;

------------------- 學，然後知不足。 發表人 - stallion 於 2005/07/27 01:08:03

我剛好也有這個困擾 :)    Stallion的程式我又加上 LockThis := TCriticalSection.Create;  這樣才能跑    如果我一次開 10個 thread 那應該會做出 10 個檔名, 例如 test, 1_test, 2_test, 3_test... 9_test      但是似乎沒有用. 檔案只會出現 test , 1_test , 2_test 幾個 其他 thread 還是沒把檔案給建立出來, 我還缺了什麼嗎?        mythread.excute(); var  LockThis:TCriticalSection； // global variable, prevent other thread enter at same time  a, file_err : integer;  file, file2, path : string;    begin      LockThis := TCriticalSection.Create; LockThis.Acquire; file2 := file; a := 0; path := 'c:\test'; while (FileExists( path '\' file2) = true) or (FileExists( path '\' file2 '.td!') = true) do begin a := a 1; file2 := inttostr(a) '_' file ; end; try try ForceDirectories(path); fs := TFileStream.Create(path '\' file2 '.td!',fmCreate); except file_err := 1; end; finally LockThis.Release; end; end;

我試了~也跟~ppp大大一樣ㄟ~ 怎麼辦~到底那裡還要改~~

抱歉，舉了例子忘了說明完整用法～ > ------------------- 學，然後知不足。

Stallion : 可以了, 果然是我的宣告放錯地方 感謝您的幫忙

引言: Stallion : 可以了, 果然是我的宣告放錯地方 感謝您的幫忙

太好了~我也可以用了~3q pp & s

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.