Combobox Werte zuweisen

Sidewinder2005 · Hält's aus hier Beiträge: 3

Ich möchte ein Programm schreiben, dass den Wert von Autos berechnet. Das Programm ist auch so weit fertig, nur fehlt mir noch ein entscheidender Teil.

ich habe eine Combobox, in der die Automodelle stehen.
Nun möchte ich, dass jedem Item in dieser Combobox ein bestimmter Wert zugewiesen wird.
Also beispielsweise Audi A4 mit dem Wert 25.000 €
Der Wert soll nicht in der Combobox erscheinen, sondern in ein Editfeld ausgegeben werden.
Also konkret wenn auto x in der combobox ausgewählt ist soll der Preis(x) in ein editfeld ausgegeben werden.

Weiß da jemand ne möglichst einfache Lösung ?

Moderiert von raziel: Topic aus Sonstiges verschoben am Mo 04.04.2005 um 17:45

Ehemaliges Mitglied Erhaltene Danke: 1

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

const  Autoanzahl = 3;
       Autopreis : Array[1..Autoanzahl] Of String = ('15.000','20.000','25.000');

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Edit1.Text := Autopreis[ComboBox1.ItemIndex+1];
end;

so zum Beispiel

Sidewinder2005 · Hält's aus hier Beiträge: 3

Cool, vielen Dank.
Ich dachte dafür wären viel mehr Zeilen notwendig.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme