procedure TForm1.Button3Click(Sender: TObject);
var
Dbname,s:string;
DBFile:TextFile;
begin
Dbname:='server';
s:='lisa';
AssignFile(DBFile,'ConSQL.ini');
if not (FileExists('ConSQL.ini')) then
begin
Rewrite(DBFile);
end;
Append(DBFile);
Writeln(DBFile,Dbname);
Writeln(DBFile,s); Flush(DBFile);
CloseFile(DBFile);
var
Dbname,s:string;
DBFile:TextFile;
begin
Dbname:='server';
s:='lisa';
AssignFile(DBFile,'ConSQL.ini');
if not (FileExists('ConSQL.ini')) then
begin
Rewrite(DBFile);
end;
Append(DBFile);
Writeln(DBFile,Dbname);
Writeln(DBFile,s); Flush(DBFile);
CloseFile(DBFile);
ReWrite(DBFile);就可以