La lecture de l'ensemble de la section à partir d'un fichier ini

La lecture de l'ensemble de la section a partir d'un fichier ini

La lecture de l'ensemble de la section a partir d'un fichier ini : Plusieurs milliers de conseils pour vous faciliter la vie.

Comment faire pour lire une section entiere a partir d'un fichier INI.
[Script]
1000=DoSomething,1,2
1000=DoSomethingElse,3,4
Lors de l'utilisation de TIniFile.ReadSectionValues un seul de ces articles seront retournes. Voici une procedure qui permettra de lire l'integralite de l'article.
procedure ReadWholeIniSection(FileName: string nom de section: chaîne de Cordes: TStrings)
var
& nbsp & nbsp P: PChar
& nbsp & nbsp Tampon: PChar
& nbsp & nbsp BufferSize: Integer
begin
& nbsp & nbsp Cordes.BeginUpdate
& nbsp & nbsp BufferSize := 10 * 1024 * 1024
& nbsp & nbsp GetMem(Tampon, BufferSize)
& nbsp & nbsp essayer
& ! & ! & ! & nbsp BufferSize := GetPrivateProfileSection(PChar(nom de section), le Tampon, BufferSize, PChar(FileName)))
& ! & ! & ! & nbsp si BufferSize = 0, alors
& ! & ! & ! & ! & ! & nbsp Sortie
& ! & ! & ! & nbsp P := Tampon
& ! & ! & ! & nbsp tandis que les P^ <> #0 do
& ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & nbsp Cordes.Ajouter(P)
& ! & ! & ! & ! & ! & nbsp Inc(P, StrLen(P) 1)
& ! & ! & ! & nbsp fin
& nbsp & nbsp enfin
& ! & ! & ! & nbsp Cordes.EndUpdate
& ! & ! & ! & nbsp si Affecte(Tampon)
& ! & ! & ! & ! & ! & nbsp FreeMem(Tampon)
& nbsp & nbsp fin
fin