ComboBox.Items.Add und ini Sektions

[Ajintaro]

Hallo Leute!

Ich hab hier mal im Forum gestöbert um eine relativ simple Sache zu lösen:

Ich möchte die Items einer ComboBox mit Sections einer ini-Datei füllen.

Bsp:

[rot]
bla=2

[blau]
blubb=7

[gelb]
muil=3

[gruen]
roi=4

==>> als Erbegnis sollte nun rot, blau, gelb und gruen als Items in der Combobox vorliegen.

Es gab schon ein paar Lösungsansätze aber ganz so einfach ists leider nicht.
Hier mein (fehlerhafter)code:

Delphi-Quellcode:

procedure TForm1.TabSheet1Show(Sender: TObject);
var test: string;
    iSection, iValue: integer;
    s, sSections: TStrings;
begin
//////////////////////////////////////////////////
//
// IST ARBEITSVERZEICHNIS NOCH DA?
//
Ini:=TIniFile.Create(GetWindir+'\log.ini');
test:=Ini.ReadString('DZE', 'avz','kein Wert');
 if not DirectoryExists(test) OR (test='') then
   begin
    showmessage('Ihr Arbeitsverzeichnis wurde nicht gefunden! Biite wählen Sie ein Arbeitsverzeichnis');
      if SelectDirectory('Verzeichnis auswählen, in dem Ihre Daten gesichert werden','c:\',Directory) then
      //avz wird gewählt
      begin
       edit_arbeitsverzeichnis.Text:=Directory;
       Ini.WriteString('DZE','avz',Directory);
      end
      else
      //avz Wahl wird abgebrochen
      begin
       ShowMessage('Ohne Arbeitsverzeichnismacht das keinen Sinn.');
       Application.Terminate;
      end;

   end
   else
     //Arbeitsverzeichnis gefunden, alles io
     begin
       s := TStringList.Create;
       sSections := TStringList.Create;
       edit_arbeitsverzeichnis.Text:=test;

       for iSection := 0 to Pred(sSections.Count) do
       begin
        Ini.ReadSection(sSections[iSection], s);
       end;

       //ComboBox2.Items.Add(sSections); <-- fehler :-(
     end;


end;

inkompatible Typen... muss ich noch einen Typecast machen oder liege ich grundsätzlich falsch?

Grüsse Ajin

[Bernhard Geyer]

Delphi-Quellcode:

ComboBox2.Items.AddStrings(sSections);