Constantes del formulario
Código Delphi
[-]
const
kCarpeta = 'DATOS';
Función para mostrar el formulario y devolver ruta completa de conexión
Código Delphi
[-]
function TForm1.Mostrar(const Ruta: String): String;
var
i, j: Integer;
Nom: String;
begin
ComboBox1.Clear;
for i := 1 to 100 do
begin
Nom := kCarpera + IntTostr(i);
if FileExists(Ruta + Nom) then
j := ComboBox1.Items.Add(Nom);
end;
ComboBox1.ItemIndex := j;
ShowModal;
Result := Ruta + kCarpeta + IntToStr(ComboBox1.ItemIndex);
En el archivo ini separaría la ruta del nombre de la base de datos
Código Delphi
[-]
path="192.168.1.88:C:\ProyectoMaestro\"
nom= "MAESTRO.IB"
Create del DataModule
Código Delphi
[-]
procedure TDataModule1.DataModuleCreate(Sender: TObject);
Var
Ruta, Nombre, BaseDeDatos: String;
ElIniFile: TIniFile;
f: TForm1;
begin
ElIniFile := TIniFile.Create(ExtractFilePath(Application.exename)+'BDatos.ini');
Ruta := ElIniFile.ReadString('BD','Path','');
Nombre := ElIniFile.ReadString('BD','Nom','');
f := TForm1.Create(Self);
try
BaseDeDatos := f.Mostrar(Ruta) + '\' + Nombre;
finally
f.Free;
end;
If BasedeDatos = '' then
ShowMessage('Error al cargar Base de Datos')
else begin
ibdatabase1.Connected:=false;
ibdatabase1.DatabaseName:=BasedeDatos; ibdatabase1.Connected:=true;
end;