Как связать параметры из СomboВox?

[Chipandos]

Помогите, пожалуйста, реализовать следующую задачу:
1.Из СomboВox1 выбирается значение b.
2.В СomboВox2 появляются значения D, которые соответствуют – b.
3.Необходимо как-то еще связать с каждым значением D – соответствующее ему значение f0.

Заполнение значение D в СomboВox2 в зависимости от b СomboВox1 происходит следующим образом:

 procedure TForm1.ComboBox1Change(Sender: TObject);
 begin
 case combobox1.ItemIndex of
 0:begin combobox2.Items.Clear; combobox2.Items.Add('8');combobox2.Items.Add('10');combobox2.Items.Add('12');com bobox2.Items.Add('13') end;
 1:begin combobox2.Items.Clear; combobox2.Items.Add('11');combobox2.Items.Add('12');combobox2.Items.Add('13');co mbobox2.Items.Add('14');combobox2.Items.Add('15');combobox2.Items.Add('16') end;
 end;
 end;

Как реализовать 3-е условие? Заранее благодарен.

[Прик]

Так примерно:

type
  TObj = class
    f0 : Double;
  end;

procedure TForm1.CB1Change(Sender: TObject);
var Ob : TObj;
    I : Integer;
begin
  CB2.Items.Clear;
  for I := 0 to CB2.Items.Count-1 do
    CB2.Items.objects[I].Free;
  case CB1.ItemIndex of
     0:begin
        Ob := TObj.Create; Ob.f0 := 0.29;
        CB2.Items.AddObject('8', Ob);
        Ob := TObj.Create; O.bf0 := 0.23;
        CB2.Items.AddObject('10', Ob);
        Ob := TObj.Create; Ob.f0 := 0.19;
        CB2.Items.AddObject('12', Ob);
        Ob := TObj.Create; Ob.f0 := 0.17;
        CB2.Items.AddObject('13', Ob)
     end;
     1:begin
       //...
     end;
  end;
end;

[Chipandos]

Куда написать
"type
TObj = class
f0 : Double;
end;"
Если написать в общий type, то Delphi ругается на остальные процедуры, а если написать после основного type, то не хочет работать???

[Romantik_FM]

Сообщение от Chipandos

Куда написать
"type
TObj = class
f0 : Double;
end;"
Если написать в общий type, то Delphi ругается на остальные процедуры, а если написать после основного type, то не хочет работать???

Выше основного поставте

[Chipandos]

Помогите

[Chipandos]

как извлечь значение f0 из
"case ComboBox1.ItemIndex of
0:begin
Ob := TObj.Create; Ob.f0 := 0.29;
combobox7.Items.AddObject('8', Ob);
Ob := TObj.Create; Ob.f0 := 0.23;
combobox7.Items.AddObject('10', Ob);
Ob := TObj.Create; Ob.f0 := 0.19;
combobox7.Items.AddObject('12', Ob);
Ob := TObj.Create; Ob.f0 := 0.17;
combobox7.Items.AddObject('13', Ob)
end; "
чтобы в дальнейшем его использовать при вычислениях?

[Прик]

Как в посте #2 написано, так и надо сделать.
Описание класса используется только в этой процедуре, поэтому нет необходимости объявлять его где либо еще.
Если этот класс в дальнейшем будет использоваться в других процедурах/функциях, то его описание надо будет переместить после слова implementation и после {$R *.dfm} вместе со словом type.
Для примера:

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

type
  TObj = class
    f0 : Double;
  end;

procedure TForm1.FormCreate(Sender: TObject);

как извлечь значение f0

D := TObj(combobox7.Items.Objects[combobox7.ItemIndex]).f0

[Chipandos]

Большое спасибо за помощь, Прик!!!