[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

Код:

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

В ComboBox

Код:

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

[drkane]

спасибо

[drkane]

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

Код:

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]

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