我開啟了一個文字檔，我要將裡面的資料處理完畢，卻只能處理到第一筆，程式就自動跳出處理程序(讀完第一筆資料並且處理完了，程式判斷為EOF而自動跳出) try AssignFile(OpenFile, Edit6.Text) ; Reset(OpenFile) ; except ShowMessage('檔案:' Edit6.Text ' 開啟錯誤, 無法執行 !!!') ; Exit ; end ; while not Eof(OpenFile) do begin Readln(OpenFile,RecDatas) ; : (處理程序) : end ;

hi, 是不是你的 處理程式 有對該 OpenFile 有做什麼處理呢? 否則應該不會這樣才對, 可以貼出較完整的程式碼嗎? 發表人 - timhuang 於 2004/02/03 13:18:43

timhuang 大大您好 程式碼如下 var OpenFile : TextFile ; MaxRec : Integer ; LeadSpace : Integer ; Begin try AssignFile(OpenFile, Edit1.Text) ; Reset(OpenFile) ; except ShowMessage('檔案:' Edit1.Text ' 開啟錯誤, 無法執行 !!!') ; Exit ; end ; LeadSpace := 60 ; MaxRec := (FileSize(OpenFile) div 1732) ; Readln(OpenFile,RecDatas) ; while (not Eof(OpenFile)) do begin Readln(OpenFile,RecDatas) ; : (資料處理) : end ; Try CloseFile(OpenFile ) ; except end ; End ; 發表人 - foxelf 於 2004/02/04 16:13:07

幾個進一步的問題: 1. RecDatas 是 string 應該沒錯吧! 2. 開啟的檔案是文字檔或是二進位檔呢? 3. (資料處理) 的部分是不是有用到 OpenFile 這個變數呢, 也有可能影響該檔案的目前指標位置 請試著往這幾個方面想看看!

看到你的程式，發現你的程式思路不是很好 既然你對基本 IO 與 try 的用法不熟，又何必強迫用自自己用呢？ 直接用元件來處理

var 宣告區加入
 TMyFileToWork: TMemo;    處理區使用
try     TMyFileToWork := TMemo.Create(Self)
 TMyFileToWork.Lines.LoadFromFile('Your FileName Here');     for Li := 0 to (TMyFileToWork.Lines.Count - 0) do // 一行一行處理
或是用
 if TMyFileToWord.Lines.Count > 0 then             //一起由回圈處理      WithTMyFileToWork do
   begin
    
     在這裡處理你要的動作     
     Lines[X][Y]  第 X 行 / 第 Y 字 
     每行的字數 Length(Lines[X])
           end;     finally     TMyFileToWork.Free;    end;        

  您好！我試過您的程式，沒有您說的問題。   另建議您才有下面的方法處理會比較清晰。  

var
  FileName: string;
  slFile: TStringList;
  i: integer;
  RecData: string;
begin
  FIleName:= trim(Edit1.Text);
  slFile:= TStringList.Create;
  try
    slFile.LoadFromFile(FileName);
    for i:= 0 to slFile.Count -1 do
    begin
      RecData:= slFile.Strings[i];
      處理資料
    end;
  finally
    slFile.Free;
  end;
end;
 

========================= 語言是工具，最重要是如何解決問題。 發表人 - Leway 於 2004/02/05 09:29:49

謝謝各位大大的解疑 我決定將它重寫，改別人的程式實在是痛苦啊....