La lectura de una sección entera de un inifile


Cómo leer una sección completa de un archivo INI.
[Script]
1000=Haceralgo,1,2
1000=DoSomethingElse,3,4
Cuando se utiliza TIniFile.ReadSectionValues sólo uno de estos elementos será devuelto. Aquí es un procedimiento que se lea toda la sección.
procedimiento ReadWholeIniSection(FileName: string SectionName: string Cadenas: TStrings)
var
& nbsp & nbsp P: PChar
& nbsp & nbsp Búfer: PChar
& nbsp & nbsp BufferSize: Integer
begin
& nbsp & nbsp Cadenas.BeginUpdate
& nbsp & nbsp BufferSize := 10 * 1024 * 1024
& nbsp & nbsp GetMem(Buffer, BufferSize)
& nbsp & nbsp probar
& nbsp & nbsp & nbsp & nbsp BufferSize := GetPrivateProfileSection(PChar(SectionName), Buffer, BufferSize, PChar(FileName)))
& nbsp & nbsp & nbsp & nbsp si BufferSize = 0, entonces
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Salida
& nbsp & nbsp & nbsp & nbsp P := Buffer
& nbsp & nbsp & nbsp & nbsp mientras que P^ <> #0
& nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Cadenas.Add(P)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Inc(P, StrLen(P) 1)
& nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp finalmente
& nbsp & nbsp & nbsp & nbsp Cadenas.EndUpdate
& nbsp & nbsp & nbsp & nbsp si se ha Asignado(Buffer), a continuación,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp FreeMem(Buffer)
& nbsp & nbsp final
fin









La lectura de una seccion entera de un inifile


La lectura de una seccion entera de un inifile : Multi-millones de consejos para hacer su vida mas facil.


Como leer una seccion completa de un archivo INI.
[Script]
1000=Haceralgo,1,2
1000=DoSomethingElse,3,4
Cuando se utiliza TIniFile.ReadSectionValues solo uno de estos elementos sera devuelto. Aqui es un procedimiento que se lea toda la seccion.
procedimiento ReadWholeIniSection(FileName: string SectionName: string Cadenas: TStrings)
var
& nbsp & nbsp P: PChar
& nbsp & nbsp Bufer: PChar
& nbsp & nbsp BufferSize: Integer
begin
& nbsp & nbsp Cadenas.BeginUpdate
& nbsp & nbsp BufferSize := 10 * 1024 * 1024
& nbsp & nbsp GetMem(Buffer, BufferSize)
& nbsp & nbsp probar
& nbsp & nbsp & nbsp & nbsp BufferSize := GetPrivateProfileSection(PChar(SectionName), Buffer, BufferSize, PChar(FileName)))
& nbsp & nbsp & nbsp & nbsp si BufferSize = 0, entonces
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Salida
& nbsp & nbsp & nbsp & nbsp P := Buffer
& nbsp & nbsp & nbsp & nbsp mientras que P^ <> #0
& nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Cadenas.Add(P)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Inc(P, StrLen(P) 1)
& nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp finalmente
& nbsp & nbsp & nbsp & nbsp Cadenas.EndUpdate
& nbsp & nbsp & nbsp & nbsp si se ha Asignado(Buffer), a continuacion,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp FreeMem(Buffer)
& nbsp & nbsp final
fin


La lectura de una sección entera de un inifile

La lectura de una sección entera de un inifile : Multi-millones de consejos para hacer su vida más fácil.
Recommander aux amis
  • gplus
  • pinterest

Comentario

Dejar un comentario

Clasificación