Использование CombuBox на delphi

[kta87]

Как через компонент CombuBox осуществить возможность выбора вариантов значений a,b,c для расчета например вот такой формулы:
Дана формула: Ne = Nmax[a ∙ne/nN + b ∙(ne/nN)2 - c ∙(ne/nN)3 ]

варианты : 1 - a=b=c=1; 2 - a=0,53 , b=1,56 , c= 1,09

Расскажите начинающему по подробнее пожалуйста!

[Kotofff]

Nmax - это что за функция ? Её действие.

[kta87]

Kotofff, всего лишь максимальное значение N, в выражении имеет вид как обыкновенное число.

[saggy]

я может не совсем понял...
если это combObox, то:
напиши функцию:

function skoka(i: integer): integer;
begin
case i of
1: result := тут пишешь первый вариант рассчёта;
2: result := тут пишешь второй вариант рассчёта;
3: result := тут пишешь третий вариант рассчёта;
и так далее
end;
end;

потом на обработчик основного действия напиши, что:
допустим нужное значение - это result
result := skoka(combobox.itemindex);
где combobox это combobox... логично.

[kta87]

saggy, в окне Object Inspector где нужно варианты писать типо: 1 - дизель 2 - карбюратор

[Kotofff]

У combobox`а в Object Inspector есть Items.
Туда вноси что нужно.

[kta87]

так, но не совсем понял а как потом во вкладке Events работать . Не разу не работал как понимаете с combobox'ом . можно детально рассказать как это сделать? Упрощая выражение примем Y= (a*b*c)+X , где значений a,b и c может быть 2 варианта : 1 - a=b=c=1; 2 - a=2, b=3, c=4 . и если не трудно написать весь код решения такого уравнения с объяснениями действий как с Form так и с Unit. Буду очень благодарен!

[kta87]

Иными словами как написать: если выбрана первая строка CombоBox то a=b=c=1 , а если вторая то a=2, b=3, c=4.

[maLoy*508]

свойство ItemIndex у combobox-a смотри
и проверь если combobox1.itemInex = 1 тогда ....

[kta87]

Вообще то что я сделал даже не компилируется!

 unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ComboBox1: TComboBox;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

x , a , b , c : integer;

begin

if ComboBox1.Items[1] then x:= (1*1*1)+100 else

begin

x:= (1*2*3)+100

label1.Caption := FloatToStrF(x,ffFixed,3,0);

end;

end;

end.

Подскажите пожалуйста что и где нужно исправить