Question

delphi读写文本，复制问题

delphi启动窗体检查文本文件（F：/123.txt)是否存在，如果不存在则创建文件，后台写入内容：“123456”，按钮单击事件，复制文本文件内容到剪粘板。
请大侠帮忙写一个D7能通过的代码。最好能实现读取小节的那种，2个按钮分别读取其中的2个小节。谢谢！不能通过的就算了 我是D小菜修改难度大。
ed539@126.com

Answer 1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
str : string;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
f : textfile;
n : integer;
begin
if fileexists('f:/123.txt') then
showmessage('存在')
else
begin
showmessage('不存在');
n:= filecreate('f:/123.txt');
fileclose(n);
assignfile(f,'f:/123.txt');
append(f);
writeln(f,'123456');
closefile(f);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
s : textfile;
begin
assignfile(s,'f:/123.txt');
reset(s);
readln(s,str);
showmessage(str);
closefile(s);
end;

end.

Answer 2

Const
afile = 'F:\123.txt';

Procedure TForm1.FormCreate(Sender: TObject);
Var
alist: TStringList;
Begin
If Not FileExists(afile) Then
Begin
alist := TStringList.Create;
Try
alist.Add('1:123456');
alist.Add('2:654321');
Finally
alist.SaveToFile(afile);
alist.Clear;
alist.Free;
End;
End;
End;

Procedure TForm1.BitBtn1Click(Sender: TObject);
Var
alist: TStringList;
Begin
alist := TStringList.Create;
Try
If FileExists(afile) Then
Begin
alist.LoadFromFile(afile);
Clipboard.Clear;
Clipboard.AsText := alist.Text;
End;
Finally
alist.Clear;
alist.Free;
End;
End;

Answer 3

zengyu0512回答得对，但读取小节可使用Inifile

Answer 4

已发。