[drkane]

существует такая возможность как в Edit ставишь вразу, и в Label тутже выходит произвольный ответ, например:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then begin
Label2.Caption:=Edit1.Text+', привет!';
У меня вопрос. Я хочу чтобы автоответ выводился не в Label, а например в Listbox, Combobox, но не могу понять как (пробую всевозможные команды, не получается). Помогите, если это возможно

[The Shadow]

В ListBox

Код:

1 2 3 4 5

if ListBox1.Items.Count = 0 then ListBox1.Items.Add('ответ') else ListBox1.Items[0]:='ответ'; ListBox1.ItemIndex:=0;

В ComboBox

Код:

1 2 3 4 5

if ComboBox1.Items.Count = 0 then ComboBox1.Items.Add('ответ') else ComboBox1.Items[0]:='ответ'; ComboBox1.ItemIndex:=0;

[drkane]

спасибо

[drkane]

вот еще альтернативный пример сего кодинга:

Код:

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

begin   t1:= 'привет';   t2:= 'пока';   t3:= 'нет';     listbox1.ItemIndex:= -1;   listbox1.Items.Add(edit1.Text);   if edit1.Text = t1 then     listbox1.Items.Add(t1);   if edit1.Text <> t1 then     listbox1.Items.Add(t3);     end;

Я пытался сделать чтобы при написании "привет" выходил один из двух вариантов (допустим, или t1 или t2), но кода "or" программа не понимает в данном случае. Я точно чтото неправильно пишу, но не могу пока понять ЧТО...

[drkane]

А все, я сам понял
Просто не правильно вопрос поставил...