In English (Ini question)

[Sprint]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  S_TITLE = 'Title';
var
  Sections: TStringList;
  I: Integer;
begin

  Sections := TStringList.Create;
  try
    IniFile.ReadSections(Sections);
    for I := 0 to Sections.Count - 1 do
    begin
      if IniFile.ValueExists(Sections[I], S_TITLE) then
        ComboBox1.Items.Add(IniFile.ReadString(Sections[I], S_TITLE, ''));
    end;
  finally
    Sections.Free;
  end;

end;