Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Delphi


Информационный Канал Subscribe.Ru


RusFAQ.ru: Программирование на Delphi

Выпуск № 156
от 20.04.2003, 12:41

Администратор:
Имя: Калашников О.А.
URL: Информационный ресурс
ICQ: 68951340
Россия, Москва
О рассылке:
Задано вопросов: 594
Отправлено ответов: 1015
Активность: 170.8 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе][Обсудить на форуме]


 Список экспертов, ответы которых опубликованы в данном выпуске

Stein
Статус: Доверительный
Общий рейтинг: 165.45
[Подробней >>]
Артём Шегеда
Статус: Профессиональный
Общий рейтинг: 116.75
URL: Пристанище неодинокого программиста
[Подробней >>]
kvINT
Статус: Профессиональный
Общий рейтинг: 105.04
Телефон: (34316)2-31-45
[Подробней >>]


 Краткий перечень вопросов

Вопрос № 587. Привет, уважаемые! Процедура заносит в Memo1 подстановочные значения. Если все записи поля FAddress ... (ответов: 2)
Вопрос № 588. Доброго время суток !!! У меня значит такой вопрос: Как создать искуственный интеллект? Мне нужн... (ответов: 1)
Вопрос № 589. Здравствуйте, эксперты! Приведите, пожалуйста, пример создания нового ключа и значения в реестре из ... (ответов: 3)

Вопросов: 3, ответов: 6


 Вопрос № 587

Привет, уважаемые!
Процедура заносит в Memo1 подстановочные значения. Если все записи поля FAddress заполнены, все в порядке. Если имеются пустые строки (NULL?), выдает ошибку Invalid variant operation, как только наткнется на пустое поле. Закомментаренные проверки не помогают.
procedure TfmNakls.Button2Click(Sender: TObject);
{var
L:Boolean;}
begin
Form1.Show;
if not DM.Nakls.IsEmpty then
repeat
begin
DM.Firms.RecNo := DM.Nakls.Fields[4].Value;
// L := DM.Firms['FAddress'].IsNull;
// if L = False then
// if DM.Firms['FAddress'] <> '' then
Unit1.Form1.Memo1.Lines.Add(DM.Firms['FAddress']);
end
until not DM.Nakls.FindNext
end;



Вопрос отправлен: 17.04.2003, 00:37
Отправитель: Loko

[Следующий вопрос >>] [Список вопросов]

Отвечает Stein

Доброе время суток, Loko!
Мне кажется лучше было бы написать проверку "...<>nil"

Ответ отправлен: 17.04.2003, 13:21
Отправитель: Stein


Отвечает Артём Шегеда

Приветствую Вас, Loko!

А мне кажется, что нужно добавлять строчку в Memo так:

Unit1.Form1.Memo1.Lines.Add(DM.Firms['FAddress'].AsString);



Ответ отправлен: 17.04.2003, 13:54
Отправитель: Артём Шегеда


 Вопрос № 588

Доброго время суток !!!
У меня значит такой вопрос:
Как создать искуственный интеллект? Мне нужно узнать алгоритм его создания у меня есть свои соображения, но я думаю их малова-то будет для решения такой сложной на мой взгляд задачи.



Вопрос отправлен: 17.04.2003, 07:30
Отправитель: Andy

[Следующий вопрос >>] [Список вопросов]

Отвечает Артём Шегеда

Здравствуйте, Andy!

Хороший вопрос, но, пожалуй, не в эту группу экспертов...
Главной особенностью искусственного интеллекта является обучаемость и, как следствие, забывчивость. Ведь, чем больше знает система, тем больше её нужно памяти для хранения этих знаний, тем больше она тормозит - а шансов на выживание у тормозящей системы нет.
Лучшими обучающимися системами считаются системы с нейронной организацией памяти (поищи в инете персептрон), но для того, чтобы система обучалась, ей нужен эталон - человек (или машина с ИИ), уверенный в своих знаниях и способный сообщить об ошибке обучающейся системе, а кроме того, нужно время - человеку на это зачастую даже жизни не хватает...
Тема обширная, и не подлежащая рассмотрению здесь. Скорее всего, ей место на форуме...

Ответ отправлен: 17.04.2003, 14:03
Отправитель: Артём Шегеда


 Вопрос № 589

Здравствуйте, эксперты!
Приведите, пожалуйста, пример создания нового ключа и значения в реестре из Delphi.
Заранее благодарен



Вопрос отправлен: 17.04.2003, 09:07
Отправитель: EraSer (eraser99@tut.by)

[Следующий вопрос >>] [Список вопросов]

Отвечает kvINT

Добрый день, EraSer!
Ниже пример из Фаронова. Программа создает ключ MaxRun в реестре, записывает туда число 5 и после 5 запусков отказывается работать. Что будет в Unit1 - практически не важно.

Приложение:

Ответ отправлен: 17.04.2003, 22:33
Отправитель: kvINT


Отвечает Stein

Добрый день, EraSer!
В справке по Delphi на каждый метод есть пример...

Ответ отправлен: 17.04.2003, 13:24
Отправитель: Stein


Отвечает Артём Шегеда

Здравствуйте, EraSer!

Как Вам угодно...

Приложение:

Ответ отправлен: 17.04.2003, 14:08
Отправитель: Артём Шегеда



Форма отправки вопроса

Внимание!
Форма может работать некорректно в почтовых программах "Microsoft Outlook" и "Microsoft Outlook Express". В программе The Bat! подобные формы не работают вообще!
После нажатия на кнопку "Отправить", будет открыто второе окно. Заметьте, что в некоторых браузерах могут стоять запреты на открытие других окон, а также "чрезмерное" кэширование данных, при этом факт отправки Вашего вопроса стоит под сомнением.
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

© 2002 Команда RusFAQ.ru.

 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке


 Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов:


 Выбор рассылки

Программисту
Assembler (39)
C / C++ (30)
Perl (8)
Delphi (14)
Pascal (23)
Basic / VBA (9)
Java / JavaScript (12)
PHP (5)
MySQL / MSSQL (5)
Пользователю
Windows 95/98/Me (29)
Windows NT/2000/XP (22)
"Железо" (24)
Поиск информации (12)
Администратору
Windows NT/2000/XP (12)
Linux / Unix (12)
Юристу
Гражданское право (8)
Семейное право (5)
Трудовое право (5)
КоАП (6)

Отправить вопрос всем экспертам выбранной рассылки.




Яндекс цитирования

© 2002 Россия, Москва. Авторское право: RusFAQ.ru

http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное