Ver Mensaje Individual
  #4  
Antiguo 02-05-2017
Avatar de olbeup
olbeup olbeup is offline
Miembro
 
Registrado: jul 2005
Ubicación: Santiago de la Ribera (España)
Posts: 685
Reputación: 19
olbeup Va camino a la fama
Hola TiammatMX,

Es exactamente como dicen los compañero, el tratamiento es el mismo en delphi que en CodeTyphon, te pongo un ejemplo, defines una variable en el TForm como SQLConfig de tipo record, tambien la puedes definir como una class.

Código Delphi [-]
...
interface

uses
  etc, etc, etc, IniFiles;

type

  TSQLConfig = record
    Provider: String;
    DataSource: String;
    InitialCatalog: String;
    Port: Integer;
  end;

...
var
  IniTmp: TIniFile;
begin
  IniTmp := TIniFile.Create('C:\PruebasINI\Config.ini');
  with IniTmp do
  begin
    if (not SectionExists('MSSQL.Connection', 'Provider')) then
    begin
      WriteString('MSSQL.Connection', 'Provider', 'SQLOLEDB');
      WirteString('MSSQL.Connection', 'Data Source', 'TuServidorSQL');
      WriteString('MSSQL.Connection', 'Initial Catalog', 'TuBaseDeDatos');
      WriteInteger('MSSQL.Connection', 'Port', 1433);
    end
    else begin
      SQLConfig.Provider := ReadString('MSSQL.Connection', 'Provider', '');
      SQLConfig.DataSource := ReadString('MSSQL.Connection', 'Data Source', '');
      SQLConfig.InitialCatalog := ReadString('MSSQL.Connection', 'Initial Catalog', '');
      SQLConfig.Port := ReadInteger('MSSQL.Connection', 'Port', 0);
    end;
    UpdateFileIni;
  end;
  FreeAndNil(IniTmp);
end;
Esto lo puedes poner en OnCreate del formulario o hacer una función o lo que tu quieras.


Un saludo.
__________________
Al hacer una consulta SQL, haz que los demás te entiendan y disfruten de ella, será tú reflejo de tú saber.
Responder Con Cita