procedure TForm1.FormCreate(Sender: TObject);
var
path: string;
begin
path := GetCurrentDir + fname;
try
AssignFile(f,path);
if fileExists(path) then Append(f)
else Rewrite(f);
finally
CloseFile(f);
end;
end;
procedure TForm1.AddBtnClick(Sender: TObject);
var
i: integer;
s: string;
begin
ID := StrtoInt(Oicq.Text);
Name := Nick.Text;
WriteLn(f,ID,Space,Name);
for i := 0 to Memo1.Lines.Count - 1 do begin
s := Memo1.Lines.Strings;
WriteLn(f,s);
end;
WriteLn(f,'/n');
Oicq.Text := '';
Nick.Text := '';
Memo1.Lines.Clear;
Memo1.SetFocus;
end;
我的做法和 春意 的想法差不多! del520了,memo.savetofile() 我也用过,但是我要
添加memo 中的内容到文件的末尾,好想不好用memo.savetofile(),所以我就一行一行的写到文件中去
!! 我感觉没有做错,可是编译通不过!