ListBox ausgewähltes Item

[PhilmacFLy]

Also ich hab folgendes Problem in meiner Listbox stehen Zahlen (24, 36, 48, 54).
So jetzt muss ich eine Leasingrate berechnen, und je nach Laufzeit ist der Kalkulationsfaktor anders. So jetzt wollt ich das mit

Delphi-Quellcode:

case ... of

machen, um nicht dauern

Delphi-Quellcode:

if, then else

schreiben zu müssen. Mit

Delphi-Quellcode:

Case Listbox1.ItemIndex of

hab ichs schon probiert, aber das funzt nicht. Hat jemand nen Tipp für mich?

[Neutral General]

Hi

versuchs mal so:

Delphi-Quellcode:

case ListBox1.ItemIndex of 
  0: // erstes Item ausgewählt
  1: // zweites Item ausgewählt
  else // nichts von allem
end;

Gruß
Neutral General

[DeddyH]

Obwohl ich aufgrund der unglücklichen Fragestellung nur raten kann:

Delphi-Quellcode:

if ListBox.ItemIndex > -1 then
  Faktor := StrToIntDef(ListBox.Items[ListBox.ItemIndex], 1);

[PhilmacFLy]

@ Neutral General: das hab ich schon ausprobiert
@ DeddyH: Der Faktor steht ja nicht in der ListBox sondern in einer ini. In der ListBox stehtn nur die Monate weil das rechen scahut dan so aus

Delphi-Quellcode:

lbmonatsrate.Caption := FloattoStr((StrtoFloat(lbmehrwertsteuer3.Caption))*((StrtoFloat(ini.ReadString('Kalkulationsfaktor bis 5000', '24 Monate', '')))/100));

[taaktaak]

Moin, Moin,
also möchtest du je nach ausgewähltem Eintrag in der Listbox den passenden Faktor aus der INI-Datei lesen?

[DeddyH]

Ach, das soll die Laufzeit sein? Dann versteh ich aber nicht, wieso die case-Abfrage nicht funktionieren soll, bzw. was nicht funktioniert. Poste doch mal ein bisschen Code.

[NickelM]

Hmmm.. also wenn du wie gesagt von taaktaak dass machen willst geht das relativ einfach nämlich so :

Delphi-Quellcode:

lbmonatsrate.Caption := FloattoStr((StrtoFloat(lbmehrwertsteuer3.Caption))*((StrtoFloat(ini.ReadString('Kalkulationsfaktor bis 5000',
ListBox.Items[Listbox.ItemIndex] + ' Monate', '')))/100));

[PhilmacFLy]

Zitat:

Zitat von NickelM

Hmmm.. also wenn du wie gesagt von taaktaak dass machen willst geht das relativ einfach nämlich so :

Delphi-Quellcode:

lbmonatsrate.Caption := FloattoStr((StrtoFloat(lbmehrwertsteuer3.Caption))*((StrtoFloat(ini.ReadString('Kalkulationsfaktor bis 5000',
ListBox.Items[Listbox.ItemIndex] + ' Monate', '')))/100));

Also das hab ich ausprobiert krieg aber nen fehler und zwar:
Im Projekt ....exe ist ein Exception der Klasse EStringListError mit der Meldung 'Listindex überschreitet das Maximum (-1) aufgetreten.

[DeddyH]

Dann mach mal ein

Delphi-Quellcode:

if ListBox1.ItemIndex > -1 then

davor.

[PhilmacFLy]

Das Problem is dann nur das ers dann wieder nicht rechnet und ich soweit wie vorher bin