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

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


Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 1212
от 21.10.2008, 22:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 392, Экспертов: 44
В номере:Вопросов: 3, Ответов: 5

Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>


Вопрос № 147418: Здраствуйте уважаемые програмисты. К Вам вопрос. У меня есть 12 полей Edit.Хочу сделать так, чтобы при вводе какого то числа при нажатии кнопки это число автоматически переносилось бы в остальные поля.Но чтобы имелась возможность при вводе...
Вопрос № 147453: как СОЗДАТЬ ЦИКЛИЧЕСКОЕ ПОЯВЛЕНИЕ НУМЕРАЦИИ? То есть появляется точка на форме а рядом появляется ее номер и так с 1 по 999999!! подскажите!! КАК ЭТО СДЕЛАТЬ?ЗАРАНЕЕ СПАСИБО!!...
Вопрос № 147458: Доброго времени суток уважаемые эксперты! Возник такой вопрос. У меня есть такие записи: NeuralElement=record aInput:array of real;//Входные элементы Output:real;//Выходной элемент aW:array of real;//Синоптические связи ...

Вопрос № 147.418< /b>
Здраствуйте уважаемые програмисты.
К Вам вопрос.
У меня есть 12 полей Edit.Хочу сделать так, чтобы при вводе
какого то числа при нажатии кнопки это число автоматически переносилось бы в остальные поля.Но чтобы имелась возможность при вводе другого числа в например половины полей вводить другое какое то число и кнопка их дублировала бы.Например:есть 12 месяцев.При вводе числа 10 в месяц 1 и нажатии кнопки данное число автоматически прописывалось в остальных11-ти.Но если мне нужно будет, например в месяце 8 число 20 и при нажатии кнопки данное число автоматически прописывалось бы с 9-го по 12-ый месяца.
Надеюсь на Вашу помощь.
Заранее извиняюсь за возможно непонятное формулирование вопроса.

Отправлен: 16.10.2008, 15:05
Вопрос задал: Delf7 (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Шичко Игорь
Здравствуйте, Delf7!
Предлагаю вам следующий вариант решения.
Поля Edit1 - Edit12.
Изменение полей Edit1 - Edit12 будем производить по изменению какого-либо поля Edit1 - Edit12 .
Описываем процедуру TForm1.Edit1Change(Sender: TObject);
Её назначение: определить номер изменённого поля и все следующие за ним поля тоже поменять.
Событиям OnChange компонентов Edit1 - Edit12 назначить обработчик события Edit1Change.
Код процедуры - в приложении.

Приложение:

Ответ отправил: Шичко Игорь (статус: 10-ый класс)
Ответ отправлен: 16.10.2008, 23:06
Оценка за ответ: 5


Вопрос № 147.453
как СОЗДАТЬ ЦИКЛИЧЕСКОЕ ПОЯВЛЕНИЕ НУМЕРАЦИИ? То есть появляется точка на форме а рядом появляется ее номер и так с 1 по 999999!! подскажите!! КАК ЭТО СДЕЛАТЬ?ЗАРАНЕЕ СПАСИБО!!
Отправлен: 16.10.2008, 19:20
Вопрос задал: Шляхтенко Константин Николаевич (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Шичко Игорь
Здравствуйте, Шляхтенко Константин Николаевич!
Данную задачу можно реализовать двумя способами:
1. Ставить точку и рядом писать надпись графическими методами.
2. Ставить точку и динамически создавать компонент Label и располагать его рядом.
Коды в приложении, какой больше подойдет для реализации.

Приложение:

Ответ отправил: Шичко Игорь (статус: 10-ый класс)
Ответ отправлен: 17.10.2008, 08:44

Отвечает: Genia007
Здравствуйте, Шляхтенко Константин Николаевич!
Можно поступить следующим образом: см. приложение
Нужно только предусмотреть досрочный выход из цикла, а то не удастся закрыть программу до завершения цикла.

Приложение:

Ответ отправил: Genia007 (статус: 9-ый класс)
Ответ отправлен: 18.10.2008, 17:18


Вопрос № 147.458
Доброго времени суток уважаемые эксперты! Возник такой вопрос.
У меня есть такие записи:
NeuralElement=record
aInput:array of real;//Входные элементы
Output:real;//Выходной элемент
aW:array of real;//Синоптические связи
T:real;//Пороговое значение
end;
Neuro=record
aLayer:array of NeuralElement;
end;
и такая штука: var NeuroNet:array of Neuro;
Теперь собственно вопрос: «Как зарезервировать память для всех этих массивов»
Я представляю это так:
Procedure InitNeuralNetwork(MaxLayer,MaxNeuroElement,InputParametr,OutputParametr:word);
И в ней идет выделение памяти! Максимум что у меня получается это выделить память под NeuroNet. Заранее спасибо.
Отправлен: 16.10.2008, 19:42
Вопрос задал: Евчик Сергей Александрович (статус: 3-ий класс)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 8)

Отвечает: Bochvarov NikB
Здравствуйте, Евчик Сергей Александрович!
Я предлагая Вам сделать вся ползуя обектов на месте record и tList (tObjectList, tCollection и т.п) на месте array.
ООП основа Делфи и не только :)
Ответ отправил: Bochvarov NikB (статус: 10-ый класс)
Ответ отправлен: 16.10.2008, 20:30

Отвечает: Виктор Пырлик
Здравствуйте, Евчик Сергей Александрович!

Может, стоит пересмотреть логику в целом..
В том что есть, думаю, можно сделать примерно так:
Код:

Procedure TForm1.InitNeuralNetwork(MaxLayer,MaxNeuroElement,InputParametr,OutputParametr:word);
var i,cout:longint;
begin
cout:=MaxLayer+2;//+Входной и выходной слои
SetLength(NeuroNet,cout);
for i:=0 to cout-1 do
begin
SetLength(NeuroNet[i].aLayer.aInput,InputParametr);
SetLength(NeuroNet[i].aLayer.aW,OutputParametr);
end;
end;


Но вообще то,
© Цитата:
я думаю вы догадались что это нейросеть.

Как раз и предполагает использовать классы. Это же в прямом виде ООП. Тогда, всё выстроится само собой.


---------
не получается там - где не пробуют
Ответ отправил: Виктор Пырлик (статус: Профессионал)
Россия, Екатеринбург
Тел.: 89043822027
ICQ: 490191733
----
Ответ отправлен: 18.10.2008, 14:25
Оценка за ответ: 5
Комментарий оценки:
Огромная благодарнось Вам! Все работает просто отлично...


Вы имеете возможность оценить этот выпуск рассылки.
Нам очень важно Ваше мнение!
Оценить этот выпуск рассылки >>

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

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

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2008, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале

∙ Версия системы: 5.6 от 14.10.2008

Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru
RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru

В избранное