Entwickler-Ecke

Sonstiges (Delphi) - ComboBox in Zahl ändern


nas4killer - So 09.03.03 22:48
Titel: ComboBox in Zahl ändern
hi

folgendes habe ich vor

Edit1 ( Multiplikator )
ComboBox1 aus wahl aus paar Namen und jeder namen soll eine bestimmte zahl sein Edit2 soll das ergebnis von Edit1 mal den Wert von ComboBox1 sein.

z.B.

Quelltext 
1:
2:
 
Edit1.Text := 5
ComboBox1.Text := Cool

Cool hat z.B. den wert 3.

Quelltext 
1:
 
Edit2.Text := IntToStr( StrToInt ( Edit1.Text ) * StrToInt ( ComboBox1.Text ));

Als ergebnis kommt 15.

Danke.

Wenn ihr es nicht versteht kann ich das kleine Prog auch schicken und versuchen besser zu erklären.

Moderiert von user profile iconTino: Code-Tags hinzugefügt.


Raphael O. - So 09.03.03 23:01
weiß nichtb ob ich es richtig verstanden habe...
aber wenn du jedem Namen aus der Combobox eine Zahl zuordnen willst, dann kannste ja ne Integer Variable nehmen und die dann mit der Nummer von dem Namen belegen, die du wie folgt rauskriegst:

Quelltext 
1:
2:
3:
4:
5:
6:
 
IntVar:=-1;
if combobox1.text='Cool' then IntVar:=3;
if combobox1.text='Auch Cool' then IntVar:=2;
if combobox1.text='Schon wieder Cool' then IntVar:=1;
...
if IntVar=-1 then showmessage('Es war ein falscher Name in der Combobox');


nas4killer - So 09.03.03 23:50
Du hast mich schon richtig verstanden leider mekert aber Delphi das er IntVar=-1 nicht kennt. Muss ich irgenwelche uses einbringen ? Danke


Jack Falworth - Mo 10.03.03 00:12
Mit IntVar meint Fiji-Fighter wohl eine Integer Variable mit dem Namen "IntVar", die du selbst anlegen musst.

MfG

Jack Falworth


nas4killer - Mo 10.03.03 20:58
Und wie kann ich dies machen ?


GruppeCN - Mo 10.03.03 21:09
Etwas weiter oben gibt es einen Teil(in der Code ansicht), wo steht:


Quelltext 
1:
2:
3:
4:
5:
6:
 
var
  Form1: TForm1;

implementation

{$R *.dfm}

Das muss hinterher da stehen:

Quelltext 
1:
2:
3:
4:
5:
6:
7:
 
var
  Form1: TForm1;
  IntVar:Integer;

implementation

{$R *.dfm}


Ich will nur mal so anmerken, aber wie man eine Variable deklariert, müsste man eigentlich wissen, wenn man mit ComboBoxen arbeiten will...

Ach ja, dein Code von oben ist auch fehlerhaft. Du schriebst:

Quelltext 
1:
2:
 
Edit1.Text := 5;
ComboBox1.Text := Cool;

Richtig ist:

Quelltext 
1:
2:
 
Edit1.Text := InttoStr5);
ComboBox1.Text := 'Cool';


GruppeCN - Mo 10.03.03 21:16
Was auch noch eine, etwas einfachere Möglichkeit wäre:


Quelltext 
1:
 
Edit1.Text := InttoStr(ComboBox1.ItemIndex+1;)


Raphael O. - Mo 10.03.03 22:50
er hat aber geschrieben, das er die Zahl anhand des Namens herauskriegen will und nicht anhand der Stelle in der Combobox :(


GruppeCN - Di 11.03.03 17:15
Dann halt das obere! War ja nur eine Idee, falls er die Nummern nach der Stellung bekommen wollte. :evil:


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!