不好意思，又有請各位高手來協助， 如果我想新增文字檔的資料，我要如何新增，不能用rewite因為東西會不見 若我又要刪除那又要如何刪除呢?

用TMemo,在form上放置一個TMemo // 載入檔案 Memo1.Lines.LoadFromFile('a.txt'); // 直接在memo1上增修刪,完畢存檔 // 儲存檔案 memo1.Lines.SaveToFile('a.txt');

可以用TStringList來達成. TStringList.LoadFromFile:讀取檔案 讀入的資料都在TStringList.Strings[index]裡, TStringList.SaveToFile:儲存檔案.

hi, 可以使用 Append procedure 來進行新增的動作, 如 help 中的 sample code,    

var      f: TextFile;
begin
  if OpenDialog1.Execute then
  begin                    { open a text file }
    AssignFile(f, OpenDialog1.FileName);
    Append(f);
    Writeln(f, 'I am appending some stuff to the end of the file.'); 
    { insert code here that would require a Flush before closing the file }
    Flush(f);  { ensures that the text was actually written to file }
    CloseFile(f);
  end;    end;

另外關於刪除是要刪除檔案嗎? 還是內容呢? 刪除檔案的話, 可以使用 DeleteFile function, 內容的話, 比較方便的方式是如同前面兩位介紹的 TStringList 或 TMemo 來操作, 若仍要用 IO routines 的話, 得配合 Truncate procedure, Seek procedure 等方式來進行!

synnes 妳好，經查您所發問的問題，主題皆無意義 新手發言請先閱讀本站規定 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=19264 請儘速自行修改標題，否則相關文章一律刪除 【問題】急問!! src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=8147403&CC=182217">