| Subject | Re: [IBO] To repair connection mistake and to continue to execute the application |
|---|---|
| Author | Hans Hoogstraat |
| Post date | 2004-10-23T16:39:28Z |
Maybe:
--------
with IB_ConexaoLOCAL of the
begin
Path := ReadfromINI(path);
if not FileExists(Path) then
begin
ShowMessge('DataBase '+Path+' missing');
Exit;
end
Server := ReadfromINI(server);
Password := ReadfromINI(pass);
Username := ReadfromINI(user);
end;
end;
--------
with IB_ConexaoLOCAL of the
begin
Path := ReadfromINI(path);
if not FileExists(Path) then
begin
ShowMessge('DataBase '+Path+' missing');
Exit;
end
Server := ReadfromINI(server);
Password := ReadfromINI(pass);
Username := ReadfromINI(user);
end;
end;