InnoSetup中枚举出INI文件的所有sections和键值

原文 http://blog.chinaunix.net/uid-23480430-id-3016899.html

InnoSetup支持一些INI文件操作函数，

例如GetIniString，IniKeyExists等等。。

利用这些已有的函数，读取/删除/检测键值是否存在，都没有问题。

但是，想要列出一个INI文件有哪些Sections, 

某个Section下面有哪些键值，

就没法做到了。

所幸InnoSetup有个很好用的 LoadStringsFromFile 函数，

用来读取文本文件很方便，读INI自然不在话下。

然后再做一点简单的解析，就能得到一个INI中所有的sections和键值了。

实现两个函数如下：

读取INI文件中有哪些Sections, 并将其名字存放到 Arr数组里。

procedure IniGetSections(var Arr: Array of String; const Path: String);

读取INI文件的某个Section底下，有哪些键名，并将这些键名存放到Arr数组里。

procedure IniGetKeys(var Arr: Array of String; const Path: String; const Section: String);

1. procedure ArrayAddStr(var Arr: Array of String; Str: String);
2. var
3.   Len: Longint;
4. begin
5.   Len := GetArrayLength(Arr);
6.   SetArrayLength(Arr, Len + 1);
7.   Arr[Len] := Str;
8. end;
9. //-- INI
10. function IniGetSectionName(Line: String; var Name: String): Boolean;
11. var
12.   P0, P1: Integer;
13. begin
14.     Line := TrimLeft(Line);
15.     P0 := Pos('[', Line);
16.     P1 := Pos(']', Line);
17.     if (P0 = 1) and (P1 > P0 + 1) then begin
18.       Name := Copy(Line, P0 + 1, P1 - P0 - 1);
19.       Result := True;
20.     end
21.     else
22.       Result := False;
23. end;
24. function IniGetKeyName(Line: String; var Name: String): Boolean;
25. var
26.   P0, P1: Integer;
27. begin
28.   Line := TrimLeft(Line);
29.   P0 := Pos('=', Line);
30.   P1 := pOS(';', Line); //; is start of comment
31.   if (P0 > 1) and ((P1 = 0) or (P1 > P0)) then begin
32.     Name := Trim(Copy(Line, 1, P0 - 1));
33.     Result := True;
34.   end
35.   else
36.     Result := False;
37. end;
38. procedure IniGetSections(var Arr: Array of String; const Path: String);
39. var
40.   i: Longint;
41.   Name: String;
42.   Lines: Array of String;
43. begin
44.   SetArrayLength(Arr, 0);
45.   if not LoadStringsFromFile(Path, Lines) then exit;
46.   for i := 0 to GetArrayLength(Lines) - 1 do begin
47.     if IniGetSectionName(Lines[i], Name) then ArrayAddStr(Arr, Name);
48.   end;
49. end;
50. procedure IniGetKeys(var Arr: Array of String; const Path: String; const Section: String);
51. var
52.   i: Longint;
53.   Name: String;
54.   Lines: Array of String;
55. begin
56.   SetArrayLength(Arr, 0);
57.   if not LoadStringsFromFile(Path, Lines) then exit;
58.   for i := 0 to GetArrayLength(Lines) - 1 do begin
59.     if IniGetSectionName(Lines[i], Name) then begin
60.       if CompareText(Name, Section) = 0 then break;
61.     end;
62.   end;
63.   if i < GetArrayLength(Lines) then begin
64.     { The section is }
65.     for i := i + 1 to GetArrayLength(Lines) - 1 do begin
66.       if IniGetSectionName(Lines[i], Name) then break
67.       else if IniGetKeyName(Lines[i], Name) then ArrayAddStr(Arr, Name);
68.     end;
69.   end;
70. end;