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