Einen ganzen Abschnitt lesen aus einer INI-Datei

Einen ganzen Abschnitt lesen aus einer INI-Datei

Einen ganzen Abschnitt lesen aus einer INI-Datei : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Wie man einen ganzen Abschnitt aus einer INI-Datei zu lesen.
[Script]
1000 = DoSomething, 1, 2
1000 = DoSomethingElse, 3, 4
Bei der Verwendung von TIniFile.ReadSectionValues nur eines dieser Elemente wird zurückgegeben. Hier ist ein Verfahren, das den ganzen Abschnitt gelesen werden.
Prozedur ReadWholeIniSection (Dateiname: string; SectionName: String; Streicher: TStrings);
var
P: PChar;
Puffer: PChar;
BufferSize: Integer;
beginnen
Strings.BeginUpdate;
BufferSize: = 10 * 1024 * 1024;
GetMem (Buffer, BufferSize);
versuchen Sie
BufferSize: = Puffer, BufferSize, GetPrivateProfileSection(PChar(SectionName), PChar(FileName));
Wenn BufferSize = 0 then
Ausfahrt;
P: = Buffer;
zwar P ^ tun <> #0
beginnen
Strings.Add(P);
Inc (P, StrLen(P) + 1);
Ende;
Schließlich
Strings.EndUpdate;
Wenn Assigned(Buffer) dann
FreeMem(Buffer);
Ende;
Ende;