Вопрос № 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!! подскажите!! КАК ЭТО СДЕЛАТЬ?ЗАРАНЕЕ СПАСИБО!!
Отвечает: Шичко Игорь
Здравствуйте, Шляхтенко Константин Николаевич! Данную задачу можно реализовать двумя способами: 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. Заранее спасибо.
Отвечает: 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 Комментарий оценки: Огромная благодарнось Вам! Все работает просто отлично...