[Михалыч]

Имеется 2 ComboBox и один Едит. Как сделать так, чтобы значение в Едит менялось только при выполнении определенных условий в Комбобоксах. Ну например если ComboBox1.ItemIndex = 0 и ComboBox2.ItemIndex = 0 то значение Едит=1, если ComboBox1.ItemIndex = 2 и ComboBox2.ItemIndex = 2 то значение Едит= 2 и т.п.

Делал так
if ComboBox1.ItemIndex = 1 and ComboBox2.ItemIndex = 1 then Edit1.Text :='12345'; но что то не получается

[v1s2222]

Почему не получается? По вашему коду все работает...

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.ReadOnly := True; // не обязательно конечно 
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if(ComboBox1.ItemIndex = 0) and (ComboBox2.ItemIndex = 0) then
    Edit1.Text := '1'
  else
    if(ComboBox1.ItemIndex = 1) and (ComboBox2.ItemIndex = 1) then
      Edit1.Text := '2';

[Михалыч]

Забыл скобки поставить, вот и не получалось

Теперь еще вопросик, а как еще к тем же условиям добавить чтобы в мемо определенный текст выводился, но текста много

[lmikle]

Код:

Memo1.Lines.Text := 'длинная строка'#13#10'однако не более 255 символов в виде константы';

Memo1.Lines.Add('А так можно добавлять еще...');
Memo1.Lines.Add('... и еще...');
Memo1.Lines.Add('... и еще');