[Михалыч]

Имеется 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]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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]

Код:

1 2 3 4 5

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