Datei wird nicht in combobox geladen

[moperswings]

Hallo,

in einer comboBox1 lade ich eine Tierliste.ini mit den Items Hund, Vogel und Katze.
Wenn ich einen Item mit

Delphi-Quellcode:

case ComboBox1.Itemindex of
1: begin ComboBox2.Items.Loadfromfile('hund.ini'); end;
2: begin ComboBox2.Items.Loadfromfile('vogel.ini'); end;
3: begin ComboBox2.Items.Loadfromfile('katze.ini'); end;
end;

anklicke, werden z.B. bei hund.ini Dackel und Schäferhund angezeigt.
ItemIndex 1 und 2 machen das, beim dritten Item bleibt ComboBox2 leer.
Kann mir jemand sagen, warum jeweils der 3. ItemIndex nicht geladen wird?

Mit vielen Grüssen, moperswings

[mkinzler]

Ohne den Aufbau der Inis zu kenne, kann man dir schlecht Helfen.

[SirThornberry]

bist du dir sicher das du genau das gepostet hast was du verwendest?
Combobox1.Items auf eine Zahl zu prüfen macht wenig sinn da es ein Object ist und bei jedem Laden eine andere Speicheradresse haben wird/kann da dynamich dafür speicher angefordert wird.

[Hawkeye219]

Hi,

Zitat:

case ComboBox1.Items of

Du meinst wahrscheinlich ComboBox1.ItemIndex, und der Wert dieser Eigenschaft ist 0-basiert.

Gruß Hawkeye

[RavenIV]

Auf die Schnelle fällt mir dieses ein:
Der Itemindex der Combobox fängt bei 0 an.
Dein case läuft aber von 1 - 3.

/edit: sche****, schon wieder zu langsam...

[moperswings]

@hawkey -> hab ich schon gemerkt und verbessert. Du warst nur schneller.

In den Inis stehen einfach nur 3 Namen z.B. vogel.ini Adler, Möwe, Spatz.
Ich habe jeweils jedes Tier an die 3. Position gesetzt und der Fehler bleibt!

[RavenIV]

Zitat von moperswings:

@hawkey -> hab ich schon gemerkt und verbessert. Du warst nur schneller.

In den Inis stehen einfach nur 3 Namen z.B. vogel.ini Adler, Möwe, Spatz.
Ich habe jeweils jedes Tier an die 3. Position gesetzt und der Fehler bleibt!

Zeig doch mal den *geänderten* Code.

[moperswings]

Die Items der zweiten Combobox beginnen jetzt bei -1,0,1
Der letzte wird immer noch nicht gelesen!
Daran liegt es nicht!

[moperswings]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
        ComboBox1.Items.LoadFromFile('liste.ini');
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
        case ComboBox1.ItemIndex of
        -1: begin Combobox2.Items.LoadFromFile('katze.ini'); end;
        0: begin Combobox2.Items.LoadFromFile('hund.ini'); end;
        1: begin Combobox2.Items.LoadFromFile('vogel.ini'); end;
        end;
end;

Ich sehe gerade: Kann es daran liegen, dass der code unter combobox1change läuft?

[RavenIV]

was soll das "-1" dort?

0 : ... Katze.ini
1 : ... Hund.ini
2 : ... Vogel.ini

Versuch das mal so und melde Dich wieder.