Leer un Archivo INI en CodeTyphon para Windows

[arturom]

Empezado por Casimiro Notevi

Es igual, ¿no?
Añades el inifiles al uses y... como siempre.

Cierto, tal y como dice Casimiro.

Saludos

[olbeup]

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.