Создание Робота!

[RUSt88]

if Edit1.Text='Как дела?' then begin
Label1.Caption:='Хреново!'
end
else if Edit1.Text='Как Зовут?' then begin
Label1.Caption:='Вася';
end
else begin
label1.Caption:='Моя Твоя Непонимать :)';
end;

мне чет напомнило это про Гадю Петрович Хренову )

[bookkc]

Так. Спасибо с первым понял. Теперь ставлось сделать моргание!

Самое сложное что бы объект висел 4 секунды потом на 0.5 секунды потух и снова был виден 4 секунды...

Помогите плиз

[bookkc]

Вопрос, как можно сделать паузу таймера на секунды 2 ????

[ImmortalAlexSan]

Ответ:

Sleep(2000);

А можно ещё сделать так чтобы робот записывал твои вопросы и добавлял в словарь, а потом по смыслы отвечал, а смысл задать различными операторами типа if, case и тд. Смотрите! Вот сейчас мы bookkc поможем, а он нобилевскую примею получит за создание самого интеллектуального в мире компьютерного интеллекта

[bookkc]

Незнаю, пробывал сделать таким методом моргание- неполучается

label1.visible:=False;
label4.visible:=False;
Sleep(4000);
label1.visible:=True;
label4.visible:=True;

[keef]

Тут нужен цикл, а так он только единожды будет это проходить, а если цикл будешь писать в основной программе этот то следовательно, ты не сможешь ввести какие то данные. Вообщем смотри мой пример с потоками в данном случае он будет моргать синхронно и не будет затрагивать тебя.

[bookkc]

Незнаю, мы неучили потоки, у меня ругается на terminated в твем примере!

[keef]

Для начало нужно создать поток, потом добавить в него код который с terminated, его нужно НЕ В ОСНОВНУЮ программу добавлять. Почитай про потоки очень полезная вещь, а так долго описывать.

[bookkc]

эмм.... немогу найти... ппц. шас ещё поищу на форуме, а потом может и погуглю...
Если не трубно, розпиши плиз

[keef]

http://www.delphikingdom.com/asp/vie...catalogid=1370 вот тут всё расписанно.