现我有100行记录的文本文件，如何用程序删除后50行，请教各位先生！

刪除後50行，就是只讀取前50行嚕！ 這方面你可以參考Help的Readln procedure！ 或者簡單一點 你可以用TStringList的LoadFromFile Method 然後再去使用它的Delete Method(刪除最後的50行) 最後再用SaveToFile Method 正面思考 正面思考～～ XD

引言: 刪除後50行，就是只讀取前50行嚕！ 這方面你可以參考Help的Readln procedure！ 或者簡單一點 你可以用TStringList的LoadFromFile Method 然後再去使用它的Delete Method(刪除最後的50行) 最後再用SaveToFile Method 正面思考 正面思考～～ XD

感谢你的回应，这个我也有想过，只是除了这样一种方法还有别的方法吗？

試試看 Var ts:tstrings; begin ... ts:=tstringlist.create; ts.loadfromfile(yourfilename); ts.delete(6); // delete line 6 ts.delete(4); // delete line 4 ts.savetofile(yourfilename); ts.free; end;

試試看 Var ts:tstrings; begin ... ts:=tstringlist.create; ts.loadfromfile(yourfilename); ts.delete(6); // delete line 6 ts.delete(4); // delete line 4 ts.savetofile(yourfilename); ts.free; end;

不再想想了嗎，還有更好的方法！

不再想想了嗎，還有更好的方法！

怎么买起关子来了，向你请教了。希望能回复。

有幾種方法可用： 前面的方法是一般人直覺的用法，還有幾種用法你可參考 例如可例用 TRichEdit 的 FindText 找出你準備刪除的區域，不是一行一行 1. TRichEdit: FindText 2. TRichEdit: SelText (這一塊文字是你準備刪除的區域) 3. TRichEdit: ClearSelection 可將此區域清除 方法有點類似 選取 剪下 ，所以只要你能善加利用這些方法，應該還能找出很多的方法，至於那一種方法最法，並不一定，希望你能繼續挖掘！

这的确是个好的方法，但是这样首先我也得载入文件，设定选区，然后删除。这些一定得作。但我实际中这个删除要在幕后作，我想要是用剪贴板这类的方法会更好。我想关键是缓冲区怎么作，用什么作。不知你还有什么好的建议，希望和你再联系。

我不知道你的需求是什麼，但我認為系統提供的剪貼複製應該已經夠用的，你應該對它有更深一層的了解會比較好。 如果不利用系統，那我們可以利用動態Create TStringList，將每一次剪貼或複製的內容放在 TStringList.Text ，或是存入預設的檔案，如果你要刪除或剪貼的區域不限制只有文字時，請多參考 TStream相關的 Help ,另外 Delphi 提供的 Demos 的 Richedit 範例你最好也研究一下，如果這些對你有幫助你先慢慢的規劃，還有問題再互相討論好了