前輩: 我要讓我抓ㄉ質存在一個檔,但每抓一個值就要換一行在寫錄那個檔 例如： 111 222 333 444 555 這種方式存到我指定ㄉ檔該如何寫這種迴圈 謝謝 逃避不一定躲得過 面對不一定最難受 孤單不一定不快樂 得到不一定能長久 失去不一定不再有 轉身不一定最軟弱 別急著說別無選擇 別以為世上只有對與錯 許多事情的答案都不是只有一個 所以我們永遠有路可以走 你能找個理由難過 也一定能找到快樂 懂得放心的人找到輕鬆 懂得遺忘的人找到自由 懂得關懷的人找到朋友 發表人 - ddy 於 2003/03/05 13:44:20

delphi你好: 用Memo來做吧!! for i:=0 to 抓取數量-1 do begin Memo1.Lines.Add(抓取的值); end; 存檔 Memo1.Lines.SaveToFile('c:\tmp.txt');

------
======================
昏睡~
不昏睡~
不由昏睡~

delphi 兄，請配合版規，發言主題能有意義，以利文章搜尋    

我是一登入就要從資料庫中抓值存到一個檔內但會跑無窮回圈我要如何判斷 不要抓從複ㄉ值ㄋ?? 逃避不一定躲得過 面對不一定最難受 孤單不一定不快樂 得到不一定能長久 失去不一定不再有 轉身不一定最軟弱 別急著說別無選擇 別以為世上只有對與錯 許多事情的答案都不是只有一個 所以我們永遠有路可以走 你能找個理由難過 也一定能找到快樂 懂得放心的人找到輕鬆 懂得遺忘的人找到自由 懂得關懷的人找到朋友

delphi你好:     

引言: 會跑無窮回圈我要如何判斷 不要抓從複ㄉ值ㄋ??

for i:=0 to Table1.RecordCount-1 begin ... ... ........ end; Table1是一個BDE元件

也可以這樣試試看 procedure ... var txt : textfile; begin AssignFile(txt,'檔案名稱完整路徑'); Rewrite(txt);//覆寫 with table1 do begin open; while not eof do begin // 取值 writeln( txt,取得的值); next; end; end; closefile(txt); end; -- 不過文字檔要先建立

function WriteLog(lgfile :string ; MsgWord :string): boolean; var f : TextFile; ret : boolean ; begin if not FileExists(lgfile) then Touchfile(lgfile) ; AssignFile(f,lgfile); Append(f); Writeln(f,MsgWord); Flush(f); CloseFile(f); result := ret ; end;