Foros Club Delphi - crear archivo INI para Inicializar base de datos paradox

Aquí te pongo un ejemplo de como guardarlo y como recuperarlo, despues.

Necesitas:
Edit1.text
Edit2.Text
Edit3.Text
Edit4.Text
y un Checkbox para poder poner en práctica el ejemplo.

El resto, es decir que guardar y como aplicarlo a Paradox, queda de tu cuenta.

Código:

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  ExtCtrls, StdCtrls, Inifiles;



....



procedure TIni.Button1Click(Sender: TObject);

Var

Fichero: TiniFile;

Begin

Fichero := TIniFile.Create ('D:/MiParadox.ini'); // Accedemos al Fichero

//Leemos el INI

//Read+TipoDato(Seccion - Tipo_Dato - Valor que tomará sino hay nada)

Edit1.text:=Fichero.ReadString ('NetDir','String','Error');

Edit2.text:=Fichero.ReadString ('TempDir','String','Error');

CheckBox1.Checked:=Fichero.Readbool('LocalShare','Booleano',False);

Edit3.Text:=IntToStr(Fichero.ReadInteger('Usuarios','Integer',-1));

Edit4.Text:=DateToStr(Fichero.ReadDate('Fecha','Date',Date));



Fichero.Free; // Cerramos el Fichero



end;



procedure TIni.Button2Click(Sender: TObject);

Var

Fichero : Tinifile;

Begin

Fichero := Tinifile.Create ('d:/MiParadox.ini'); // Accedemos al Fichero

//Guardamos el INI

//Sección - Tipo_Dato - Valor

Fichero.WriteString ('NetDir','String','MiDir');

Fichero.WriteString ('TempDir','String','OtroDir');

Fichero.Writebool ('LocalShare','Booleano',False);

Fichero.WriteInteger('Usuarios','Integer',22);

Fichero.WriteDate('Fecha','Date',Date);



Fichero.free; //Cerramos el Fichero.



end;

Un Saludo.