procedure TF_Landing.BitBtn1Click(Sender: TObject); var ini:TIniFile; begin if trim(Edit1.Text)='' then begin ShowMessage('请正确输入服务器名称'); Edit1.SetFocus; Edit1.Text:=''; exit; end else if trim(Edit2.Text)='' then begin ShowMessage('请正确输入数据库的名称'); Edit2.SetFocus; Edit2.Text:=''; exit; end; ini:=TIniFile.Create(ChangeFileExt(Application.ExeName,'.INI')); ini.WriteString('Database','Initial Catalog',Edit2.Text); ini.WriteString('Database','Data Source',Edit1.Text); F_Landing.Close; end; 用两个edit接受就可以了,服务器名称即为ip地址
var ini:TIniFile;
begin
if trim(Edit1.Text)='' then
begin
ShowMessage('请正确输入服务器名称');
Edit1.SetFocus;
Edit1.Text:='';
exit;
end
else if trim(Edit2.Text)='' then
begin
ShowMessage('请正确输入数据库的名称');
Edit2.SetFocus;
Edit2.Text:='';
exit;
end; ini:=TIniFile.Create(ChangeFileExt(Application.ExeName,'.INI'));
ini.WriteString('Database','Initial Catalog',Edit2.Text);
ini.WriteString('Database','Data Source',Edit1.Text);
F_Landing.Close;
end;
用两个edit接受就可以了,服务器名称即为ip地址
这样运行就不会出错了