Problem mit der Combobox

[Catfish]

Hallo ihr Lieben,


Ich habe da ein Problem. Und zwar sollen wir als Hausaufgabe ein Programm erstellen mit mindestens einer Combobox, 3 Editfelder und ein Button. Kleines Problem daran ist wir sollen ein Zahlenwert in ein Editfeld übertragen und damit eine Berechnung durchführen. Der Zahlenwert darf aber nicht in der Combobox als String stehen.

In der Schule hatten wir schon einmal kurz die Combobox angeschnitten aber nicht so sehr und die Hilfe hat mir leider nichts gebracht.

Das habe ich Momentan in der Combobox:

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
 
begin
  ComboBox1.Items.AddObject('1 Liter Wasser', TObject(1));
  ComboBox1.Items.AddObject('2 Liter Wasser', TObject(2));
  ComboBox1.Items.AddObject('3 Liter Wasser', TObject(3));
  ComboBox1.Items.AddObject('4 Liter Wasser', TObject(4));
  ComboBox1.Items.AddObject('5 Liter Wasser', TObject(5));
end; 

Und zwar wollte ich dann im Edit1.Text für Object(1) 1000g ausgeben und dann mit den 1000 Gramm noch einmal in Edit2 weiter rechnen. Die Summe soll dann im Edit 3 ausgegeben werden. Das alles dann über ein Button natürlich.

Nun meine Frage wie bekomme ich das so hin das in der Combobox das eine steht aber er mit ein Integerwert weiter berechnet? Ein paar Beiträge unter mir habe ich gesehen das da einer das gleiche Problem bzw ein so "ähnliches" hatte. Nur soweit und so gut bin ich nicht um überhaupt zu wissen wo ich das array rein schreiben soll. Beim Combobox1.Change? Habe ich probiert aber er gab es nicht aus im Edit1

Vielleicht kann mir ja einer von euch helfen

Danke schon einmal im Vorraus für die ganze Mühe


Liebe Grüße Nadine

[Mathias]

Hilft dir dies weiter ?

Code: Alles auswählen

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Caption:=IntToStr(ComboBox1.ItemIndex);
end;    

[Catfish]

Hallo danke für deine schnelle Antwort. Aber wie soll mir das weiter helfen? Oder ich stehe gerade etwas daneben. Weil ich woll ja bei "1 Liter Wasser" dann in Edit1 eine 1000 drin stehen haben bzw mit 1000 dann in der Folge weiter arbeiten.

Aber kann sein das es funktioniert nur ich nicht weiß wie du das meinst danke dir trotzdem.


Liebe Grüße Nadine

[Komoluna]

Probiers mal so

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  x:=(ComboBox1.ItemIndex+1)*1000; //+1 da das erste Element den Index 0 hat
  Edit2.Text:=Inttostr(x);
  x:={deine Berechnung};
  Edit3.Text:=Inttostr(x);
end;

[Catfish]

Oh danke das funktioniert sehr gut.

Danke für die schnelle Hilfe