Дынные из Combobox в переменную

[Fantss]

Проблема такая:
В Комбобокс введены 7 компаний
Каждая компания должна иметь своё значение ,т.е
Amtel = 1253

примерно так...

Не пойму как из комбобокса вывести значение компание в переменную и присвоить ей значение 1253...

[Terran]

Если я правильно понял, то вот:

Procedure TForm1.ComboBox1Change(Sender: TObject);
Var
S: String;
Begin
S:=ComboBox1.Text + ' = 1253';
Label1.Caption:=S;
End;

[Fantss]

Там в одном комбобоксе 7 значений.... каждому из этих семи надо присвоить переменную... одна переменная будет равна одной сумме, другая другой и т.д

[Terran]

Вот пару вариантов:

Procedure TForm1.ComboBox1Change(Sender: TObject);
Var
S: String;
I,I2,I3: Integer;//Переменные с суммой
Begin
Case ComboBox1.ItemIndex Of
0: S:=ComboBox1.Text + ' = ' + IntToStr(I);//1-ая компания
1: S:=ComboBox1.Text + ' = ' + IntToStr(I2);//2-ая компания
2: S:=ComboBox1.Text + ' = ' + IntToStr(I3);//3-ая компания
//и т.д.
End;
Label1.Caption:=S;
End;
//Вариант 2
Procedure TForm1.Button1Click(Sender: TObject);
Var
I,I2,I3: Integer;//Переменные с суммой
Begin
ComboBox1.Items.Strings[0]:=ComboBox1.Items.Strings[0] + ' = ' + IntToStr(I);
ComboBox1.Items.Strings[1]:=ComboBox1.Items.Strings[1] + ' = ' + IntToStr(I2);
ComboBox1.Items.Strings[2]:=ComboBox1.Items.Strings[2] + ' = ' + IntToStr(I3);
//и т.д.
End;

Выбирайте какой Вам будет удобнее.

[Fantss]

блин(( ни одна помощь не помогла((

мне надо только чтобы название компании было равно переменной, а далее
я этой переменной присвою число!


Вот код программы с самого начала =) разбирайтесь =)


procedure TForm1.Edit1Change(Sender: TObject);
begin
TryStrToInt(edit1.text,i);
end;

procedure TForm1.CheckBox4Click(Sender: TObject);
begin
CheckBox4.Tag:=q;
q:=4780;
end;

procedure TForm1.CheckBox5Click(Sender: TObject);
begin
CheckBox5.tag:=w;
w:=3850;
end;

procedure TForm1.CheckBox6Click(Sender: TObject);
begin
CheckBox6.tag:=e;
e:=4500;
end;

procedure TForm1.CheckBox7Click(Sender: TObject);
begin
CheckBox7.tag:=r;
r:=3400;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if RadioButton1.checked and checkbox4.Checked and checkbox5.Checked then
z:=(t+q+w)*i else
if RadioButton1.checked and checkbox5.Checked and checkbox6.Checked then
z:=(t+w+e)*i else
if RadioButton1.checked and checkbox6.Checked and checkbox7.Checked then
z:=(t+e+r)*i else
if RadioButton1.checked and checkbox4.Checked and checkbox6.Checked then
z:=(t+q+e)*i else
if RadioButton1.checked and checkbox4.Checked and checkbox7.Checked then
z:=(t+q+r)*i else
if RadioButton1.checked and checkbox5.Checked and checkbox7.Checked then
z:=(t+w+r)*i else

if RadioButton2.checked and checkbox4.Checked and checkbox5.Checked then
z:=(y+q+w)*i else
if RadioButton2.checked and checkbox5.Checked and checkbox6.Checked then
z:=(y+w+e)*i else
if RadioButton2.checked and checkbox6.Checked and checkbox7.Checked then
z:=(y+e+r)*i else
if RadioButton2.checked and checkbox4.Checked and checkbox6.Checked then
z:=(y+q+e)*i else
if RadioButton2.checked and checkbox4.Checked and checkbox7.Checked then
z:=(y+q+r)*i else
if RadioButton2.checked and checkbox5.Checked and checkbox7.Checked then
z:=(y+w+r)*i else

if RadioButton3.checked and checkbox4.Checked and checkbox5.Checked then
z:=(u+q+w)*i else
if RadioButton3.checked and checkbox5.Checked and checkbox6.Checked then
z:=(u+w+e)*i else
if RadioButton3.checked and checkbox6.Checked and checkbox7.Checked then
z:=(u+e+r)*i else
if RadioButton3.checked and checkbox4.Checked and checkbox6.Checked then
z:=(u+q+e)*i else
if RadioButton3.checked and checkbox4.Checked and checkbox7.Checked then
z:=(u+q+r)*i else
if RadioButton3.checked and checkbox5.Checked and checkbox7.Checked then
z:=(u+w+r)*i else

if RadioButton1.checked and checkbox4.Checked then
z:=(t+q)*i else
if RadioButton1.checked and checkbox5.Checked then
z:=(t+w)*i else
if RadioButton1.checked and checkbox6.Checked then
z:=(t+e)*i else
if RadioButton1.checked and checkbox7.Checked then
z:=(t+q)*i else

if RadioButton2.checked and checkbox4.Checked then
z:=(y+q)*i else
if RadioButton2.checked and checkbox5.Checked then
z:=(y+w)*i else
if RadioButton2.checked and checkbox6.Checked then
z:=(y+e)*i else
if RadioButton2.checked and checkbox7.Checked then
z:=(y+q)*i else

if RadioButton3.checked and checkbox4.Checked then
z:=(u+q)*i else
if RadioButton3.checked and checkbox5.Checked then
z:=(u+w)*i else
if RadioButton3.checked and checkbox6.Checked then
z:=(u+e)*i else
if RadioButton3.checked and checkbox7.Checked then
z:=(u+q)*i else


begin
if ComboBox1.Items.Strings[0]:=inttostr(x1) then
x1:=30950 else
if ComboBox1.Items.Strings[1]:=inttostr(x2) then
x2:=32200 else
if ComboBox1.Items.Strings[2]:=inttostr(x3) then
x3:=34000 else
If ComboBox1.Items.Strings[3]:=inttostr(x4) then
x4:=35000 else
If ComboBox1.Items.Strings[4]:=inttostr(x5) then
x5:=36700 else
If ComboBox1.Items.Strings[5]:=inttostr(x6) then
x6:=37000 else
If ComboBox1.Items.Strings[6]:=inttostr(x7) then
x7:=38900;
su:=z+x1+x2+x3+x4+x5+x6+x7;
end;
begin

if RadioButton1.checked then
showmessage('Âûáåðèòå ðàçìåð øèíû!') else
if RadioButton2.checked then
showmessage('Âûáåðèòå ðàçìåð øèíû!') else
if RadioButton3.checked then
showmessage('Âûáåðèòå ðàçìåð øèíû!') else
if checkbox4.Checked then
showmessage('Âûáåðèòå òèï øèíû!') else
if checkbox5.Checked then
showmessage('Âûáåðèòå òèï øèíû!') else
if checkbox6.Checked then
showmessage('Âûáåðèòå òèï øèíû!') else
if checkbox7.Checked then
showmessage('Âûáåðèòå òèï øèíû!');
if ComboBox1.Text = '' then
ShowMessage('Âûáåðèòå ìàðêó øèíû!');
label1.caption:=inttostr(su);
end;
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
if RadioButton1.checked then begin
RadioButton1.tag:=t;
t:=21300;
end;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
if RadioButton1.checked then begin
RadioButton1.tag:=t;
y:=22300;
end;
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
if RadioButton1.checked then begin
RadioButton1.tag:=t;
u:=24300;
end;
end;

[Fantss]

Решение найдено спс