Косяк в том,что откомпилированная прога, подвисает когда по форме начинаешь кликать мышкой, или когда её закрываешь др. каким-нить окном...Прога направлена на вычислении математических процессов.В чём тут проблема?
Ошибка в 3 строчке.
Может, ты прикрепишь свой проект, а то, знаешь ли, ясновидящие перед Новым годом и так загружены...
Проект представляет из себя реализацию нейронной сети, которую я долгими ночами и днями сам моделировал, поэтому боюсь,что мою идею могут стащить...
Мне что-то говорили о том,что саму прогу надо вставлять в какой-то канал...толком я и не понял...
Скорее всего в реализации нейронной сети ошибка.
Можешь не выкладывать весь код. Попробуй закоментарь весь свой метод, а потом ищи где виснет. Уверен что все будет летать
Там отрисовка какая-нибудь есть?
У меня в окне Tmemo просто циферки потоком меняются и всё, если окно не трогать,то и прога не виснет...Она как бы ваще не виснет, просто пишет "не работает". Я бы рад вам представить exe, но он будет работать только с кучей файлов,без них никак,а там конфедициальная инфа...так что может есть какие-нить ещё советы?
Правильно сказал hiv - закомментируй все, что касается используемых файлов (или забей нулями их), чтобы висло также, но конфиденциальных данных не было..
Так и быть,скинул я вам 2 файла, которые должны быть помещены прямо в корневом каталоге диска С:...
Файл weights необходимо всё время заполнять последовательностью в столбец 0,1 ,иначе работать не будет...На форматирование файла не нажимайте...работать не будте,нечего форматировать...
Прикрепленные файлы
Project2.zip ( 203.55 килобайт )
Кол-во скачиваний: 208
weights.txt ( 78 байт )
Кол-во скачиваний: 226
inf.txt ( 7.05 килобайт )
Кол-во скачиваний: 239
Ну я еще раз говорю, у тебя скорее всего не выполняется условие по которому ты даешь команду на отрисовку формы. А вообщето лучше кроме Memo1.Refresh; делать Application.ProcessMessages;, тогда твое приложение будет реагировать на все. Ну а еще лучше - если весь свой метод запихнешь в отдельнный поток (нить процесса) TThread, а вывод в форму осуществлять по таймеру с синхронизацией потоков. Так даже быстрее вычислять будет, ибо не каждый шаг обработки данных выводить на форму.
Я там даже Memo1.Refresh не нашел, memo1.lines.add(..) и по кругу.. Т.е. ProcessMessages надо внутри этого цикла поставить.
Млин...ребят, я понимаю, вы знатоки...я за Delphi всего 3-ий месяц сижу...изучил всего лишь основы(времени больше нет), поэтому если можно опишите код,как мне сделать...Заранее вам благодарен
Тебе Malice уже сказал!
Там где memo1.lines.add(..) добавь Application.ProcessMessages;
Ага...вроде теперь не тупит....Вам огромное спасибо...
Вот правда ещё хотел спросить...как сделать так,чтобы остановить процесс выполнения программы...Знаю,что в Pascal была функция Exit, в Delphi реакции никакой нет.Break не пойдёт...
Сделай примерно так:
var хватит_уже:boolean;
procedure button1Click()
begin
хватит_уже:=false;
repeat
.....
....
....
memo1.lines.add(s);
application.processmessages;
until (a=b) or хватит_уже;
end;
procedure button3Click()
begin
хватит_уже:=true;
end;