Foros Club Delphi - Ver Mensaje Individual

dec · #13 30-11-2005

Hola,

Algo así debiera funcionar:

Código Delphi [-]uses
  IniFiles;

procedure TfrmPrincipal.btnLeerIniClick(Sender: TObject);
var
  ini: TIniFile;
begin
  ini := TIniFile.Create(ChangeFileExt(ParamStr(0), '.ini'));
  try
    ShowMessage( 'Clave Comandos = ' + ini.ReadString('Ficheros', 'Comandos', 'Error') );
    ShowMessage( 'Clave Estado = ' + ini.ReadString('Ficheros', 'Estado', 'Error') );
    ShowMessage( 'Clave Log = ' + ini.ReadString('Ficheros', 'Log', 'Error') );
  finally
    ini.Free;
  end;
end;

Te adjunto un sencillo ejemplo en donde se hace uso del código de arriba.