Question

Delphi将剪切板文字写入到txt文件最下边一行

Delphi将剪切板文字写入到txt文件最下边一行,代码该如何编写.

Answer 1

你先加入一个memo, 通过memo1.Lines.LoadFromFile("文件名");的方法先把TXT文件导入，再用memo1.Lines.Add(Clipboard.AsText);方法把剪贴板的内容追加入到memo里，再用memo1.Lines.SaveToFile("文件名");写回文件里。这样就可以完成了。另外，要使用Clipboard，必须在引用单元Clipbrd。

下面的方法是中间过程是不可见的
procedure TForm4.btn1Click(Sender: TObject);
var
strlist:TStringList;
begin
strlist:=TStringList.Create();
strlist.LoadFromFile('c:\11.txt');
strlist.Add(Clipboard.AsText); // '添加一行'
strlist.SaveToFile('c:\11.txt');
end;