, lees de hele afdeling, van een ini - dossier te lezen hoe een hele afdeling,, []. De tekst, 1000 = doen, 1, 2, 3, 4, 1000 = dosomethingelse, en, wanneer het gebruik van deze projecten zal tinifile.readsectionvalues alleen terug.Dit is een procedure die zullen lezen de hele afdeling.,,, de procedure ReadWholeIniSection (FileName: touw; SectionName: touw; Strings: TStrings), var;,,,,, Buffer:: PChar; PChar;,,,, ik BufferSize: het gehele getal; Strings.BeginUpdate;,,,, BufferSize: = 10 * 1024 * 1024;,, GetMem (buffer, BufferSize);,,, proberen, BufferSize: = GetPrivateProfileSection (PChar (leden gebied), buffer, BufferSize, PChar (bestandsnaam)), als BufferSize = 0; en dan, uitgang;,, P.: = buffer;,, terwijl de P < > #0 doen,,, ",, Strings.Add (P);,, Inc. (P, StrLen (P) + 1);,,,,,,,,, Strings.EndUpdate; ten slotte, als 1 (buffer) dan, FreeMem (buffer);,,,,,,,,,,