Связь между ComboBox и Edit

[Stepan_P]

Здравствуйте!
Подскажите пожалуйста, как сделать так, чтобы при выборе значения (например, Компьютер) в компоненте ComboBox1, в Edit1 автоматически вывелось соответствующее этой записи значение (например, Персональный)?

[Alex11223]

Использовать соответствующее событие комбобокса (наверно что-то со словом Change).

[Stepan_P]

Это я знаю. Не понимаю, как записать данный алгоритм на языке программирования

[Serge_Bliznykov]

назначаете код на событие OnChange

потом пишете, например, так:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 if  Trim(AnsiUpperCase(ComboBox1.Text))='КОМПЬЮТЕР' // ComboBox1.ItemIndex];
         then Edit1.Text := 'персональный'
         else Edit1.Text := 'совсем не персональный';
end;

[Sciv]

if LowerCase(Trim(ComboBox1.Text)) = 'компьютер' then
  Edit1.Text := 'Персональный';

UPDATE
Сорян, на секунду припозднился

[Filka]

const
  cMyRecs: array[0..2] of record
    A, B: string;
  end = ((A: 'Компьютер'; B: 'Персональный'),
         (A: 'A1'; B: 'B1'),
         (A: 'A2'; B: 'B2'));

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  for I := Low(cMyRecs) to High(cMyRecs) do
    ComboBox1.Items.Add(cMyRecs[I].A);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Edit1.Text := cMyRecs[ComboBox1.ItemIndex].B;
end;

[Serge_Bliznykov]

Filka, код, конечно, отличный.
и очень надеюсь, что автор темы сумеет им воспользоваться.
вот только я бы обнулил ComboBox перед заполнением:

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  ComboBox1.Items.Clear;
  for I := Low(cMyRecs) to High(cMyRecs) do
    ComboBox1.Items.Add(cMyRecs[I].A);
end;

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

Сорян, на секунду припозднился

ничего. удивительно, как у нас логика сравнения совпала

[Filka]

Тогда лучше так:

  with ComboBox1.Items do
  begin
    BeginUpdate;
    try
      Clear;
      for I := Low(cMyRecs) to High(cMyRecs) do
        Add(cMyRecs[I].A);
    finally
      EndUpdate;
    end;
  end;

[Serge_Bliznykov]

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

Тогда лучше так

без сарказма - а чем лучше то?
имхо, BeginUpdate / EndUpdate не сильно повлияют, т.к. комбобокса (как и самой формы) ещё не видно.

try - finally - тоже не сильно нужны в данном случае (на мой взгляд).

Просветите, пожалуйста, что я упускаю из вида?

[Stepan_P]

Спасибо всем большое, попробую сделать