Delphi Tstrings에서 Ini 파일 키 값 쌍을 가져옵니다.

Delphi Tstrings에서 Ini 파일 키 값 쌍을 가져오는 간단한 방법은 다음과 같습니다.

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 StrList:TStrings;
 I:Integer;
 IniCfg:TInifile;
begin
   Memo1.Clear;
   StrList := TStringList.Create;//TStrings       ，    ，     
   IniCfg := TInifile.Create( ExtractFilePath(Application.ExeName)+'SysCfg.ini');
   try
      IniCfg.ReadSectionValues('SubTitle',StrList);
      for I := 0 to StrList.Count - 1 do
      begin
        Memo1.Lines.Add('Key:'+StrList.Names[i]);
        Memo1.Lines.Add('Value:'+StrList.ValueFromIndex[i]);
       // Memo1.Lines.Add('Value:'+StrList.Values[StrList.Names[i]]);//   
      end;
   finally
     IniCfg.Free;
     StrList.Free;
   end;
end;

SysCfg.ini 파일은 다음과 같습니다.

[SubTitle]
SubTitle1=   1
SubTitle2=   2
SubTitle3=   3
SubTitle4=   4
SubTitle5=   5

출력 결과는 다음과 같습니다. Key: SubTitle1 Value: 하위 제목 1 Key: SubTitle2 Value: 하위 제목 2 Key: SubTitle3 Value: 하위 제목 3 Key: SubTitle4 Value: 하위 제목 4 Key: SubTitle5 Value: 하위 제목 5