FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
crear archivo INI para Inicializar base de datos paradox
hola
como puedo crear un archivo .INI para incializar mi base de datos tipo paradox. si es posible poner un ejemplo seria fenomenal. Salu2.
__________________
Ivan Lora http://www.arrobasoft.da.ru Valientes son aquellas personas que triunfan donde otros fracasan. Bienaventurado los que nada esperan porque jamas seran defraudados. |
#2
|
|||
|
|||
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 |
#3
|
||||
|
||||
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;
__________________
Guía de Estilo de los Foros Cita:
|
|
|
|