Hvordan lese en hel del fra en INI-fil. [Script] tusen = DoSomething, 1,21000 = DoSomethingElse, 3,4When bruker TIniFile.ReadSectionValues ​​bare én av disse elementene vil bli returnert. Her er en prosedyre som vil lese hele section.procedure ReadWholeIniSection (Filename: string; section: string; Strings: TStrings); Var P: PChar; Buffer: PChar; Buffer: Integer; begynne Strings.BeginUpdate; Buffer: = 10 * 1024 * 1024; GetMem (buffer, buffer); prøve buffer: = GetPrivateProfileSection (PChar (section), Buffer, buffer, PChar (Filename)); hvis buffer = 0 deretter Exit; P: = Buffer; mens P ^ < > # 0 do begynne Strings.Add (P); Inc (P, StrLen (P) + 1); slutt; endelig Strings.EndUpdate; hvis Assigned (buffer) deretter FreeMem (buffer); end, end; Anmeldelser