@-Soft
23-11-2003, 15:41:00
hola
como puedo crear un archivo .INI para incializar mi base de datos tipo paradox. si es posible poner un ejemplo seria fenomenal.
Salu2.
Ruben_Cu
23-11-2003, 17:29:37
Hola @-Soft, busca en la ayuda de Delphi 'TIniFile' en sus métodos encontrarás ejemplos de como crear, como escribir y como leer todo lo relativo al file .INI para almacenar los datos de configuración de tu aplicación.
Espero te sirva, saludos
marcoszorrilla
23-11-2003, 17:47:26
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.
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.
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.