Tamaño máximo ficheros .ini

[blaiselaborde]

Hola;

Tengo un fichero .ini que leo desde mi aplicación en Delphi 7 y, una de mis secciones tiene más de 1800 claves ó registros, pero al hacer el ReadSection, sólo me recoge las primeras 480.

Sabe alguien si el ReadSection tiene límites? y de ser así, existe una manera diferente de leer las líneas sin tener que hacer la búsqueda como si fuese un fichero de texto?.

Gracias;

[Casimiro Noteví]

¿Y cómo lo lees?

[Neftali [Germán.Estévez]]

¿No lo estrás leyendo en un TMemo? Que si tienes límites.

[blaiselaborde]

Lo estoy leyendo en un ComboBox.

He estado revisando el procedimiento ReadSection y veo que tiene definido como constante BufSize = 16384.

Lo que me indica que no permite tamaños mayores de 16K.

Dado que es un rollo intentar cambiar y compilar la unidad IniFiles, intentaré traerme el Procedimiento a local y cambiarle el tamaño del BufSize.

[Casimiro Noteví]

Léelo hacia un richedit, por ejemplo.

[defcon1_es]

También puedes probar con un objeto de la clase TMemIniFile,
en vez de la clase TIniFile.

[blaiselaborde]

Gracias a todos.

He podido solucionar el problema como lo indiqué: importando el Procedimiento a mi aplicación y ampliando el BuffSize de 16K a 64K.

El código nuevo ha quedado así:

Código Delphi [-]
Procedure TApliF.pINISectLoadList(aIniFileName, aSectionName: PChar;
                                          Var aList       : TStringList);
Const cBufSize = 65536;
Var bBuffer,
      P      : PChar;
Begin
  GetMem(bBuffer, cBufSize);
  Try
    aList.BeginUpdate;
    Try
      aList.Clear;
      If GetPrivateProfileString(aSectionName, Nil, Nil, bBuffer, cBufSize, aIniFileName) <> 0
      then
        Begin
          P := bBuffer;
          While P^ <> #0 do
            Begin
              aList.Add(P);
              Inc(P, StrLen(P) + 1);
            end;
        end;
    Finally
      aList.EndUpdate;
    end; // Try
  Finally
    FreeMem(bBuffer, cBufSize);
  end; // Try
end; // Proc

Un saludo y hasta la próxima.