 |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
 
|
|
Перенос исходников из TP в Delphi, Что-то не получается. 
| Unregistered |
|
|||
|
Unregistered |
p0s0l, спасибо огромное.
С меня пиво  Только вот в ТР у меня так и не компилится... 116 ошибка и все. прописываю {$N+} ошибка - деление на 0. А в делфи все нормально, только я не понял почему ты исправил на inc(i,2). Ты и в первый раз, когда компилировал так менял? Мне еще 5 функций переносить... как узнать где надо инкрементировать на 2?! |
|||
|
||||
Загрузка ...
| p0s0l |
|
|||
 Г-н Посол  Профиль Группа: Экс. модератор Сообщений: 3668 Регистрация: 13.7.2003 Где: 58°38' с.ш. 4 9°41' в.д. Репутация: 58 Всего: 112 |
Если Inc(i) в цикле нет, то инкрементируй на 1.
Если в цикле (for) стоит Inc(i) или Inc(i, 1), то инкрементируй на 2. В общем случае: если в цикле (for) стоит Inc(i, x), то инкрементируй на x+1. Выше: i - это переменная цикла (for i := ...) -------------------- С уважением, г-н Посол. |
|||
|
||||
| p0s0l |
|
|||
|
Г-н Посол Профиль Группа: Экс. модератор Сообщений: 3668 Регистрация: 13.7.2003 Где: 58°38' с.ш. 4 9°41' в.д. Репутация: 58 Всего: 112 |
И кстати: что это за ошибка 116 ? Чо пишет ?
P.S.: пиво пришли мне на почту -------------------- С уважением, г-н Посол. |
|||
|
||||
| Unregistered |
|
|||
|
Unregistered |
Такую замену надо делать тогда, когда я с (for) на (while) меняю?
Или при переносе из ТР в Делфи? Ошибка 116 забыл уже что-то связано с процессорами 8087.. А ты что не в ТР компилил? В нем можно в хелпе глянуть что эта ошибка значит и как исправить, только как я уже говорил после исправления - деление на ноль выскакиввает Вот посмотрел что это значит: "Must be in mod 8087 to compile this" Ты в чем компилил код ТР? |
|||
|
||||
| p0s0l |
|
|||
|
Г-н Посол Профиль Группа: Экс. модератор Сообщений: 3668 Регистрация: 13.7.2003 Где: 58°38' с.ш. 4 9°41' в.д. Репутация: 58 Всего: 112 |
Я так-то компилил в BP, но не думаю, что BP и TP так сильно отличаются, скорее тут дело в настройках компилятора, а ошибок у меня никаких не возникало, кроме отсутствия объявления переменных. Ну и там еще с файлом была какая-то ерунда - пришлось убрать (WriteLn(fq, ...))
Это сообщение отредактировал(а) p0s0l - 22.8.2003, 18:27 -------------------- С уважением, г-н Посол. |
|||
|
||||
| p0s0l |
|
|||
|
Г-н Посол Профиль Группа: Экс. модератор Сообщений: 3668 Регистрация: 13.7.2003 Где: 58°38' с.ш. 4 9°41' в.д. Репутация: 58 Всего: 112 |
Кстати, деление на 0 когда выскакивает ? Если в самом начале проги, еще до всяких там вычислений - то это из-за модуля Crt. Если так, то тебе надо его пропатчить, или я могу выслать нормальную версию. А лучше просто убери Crt из Uses, и если компилятор будет ругаться на какие-нибудь функции (ReadKey, ClrScr) - временно попробуй их закоментировать.
-------------------- С уважением, г-н Посол. |
|||
|
||||
| Unregistered |
|
|||
|
Unregistered |
Да ну ладно...не нужно оно мне в паскале главное чтобы в делфи заработало...
Что у меня плохо получается... Вот со второй функцией провозился.. что-то она у меня выеживается... Столько заменить пришлось... вот например как заменить надо было for i:=nrr +1 downto 3 do begin ..... end; i:=nrr; while i>=3 do begin .... dec(i) end; Так? У меня что-то зацикливается и все... в нескольких местах. Геморно... Завтра на свежую голову попробую еще раз. |
|||
|
||||
| p0s0l |
|
|||
|
Г-н Посол Профиль Группа: Экс. модератор Сообщений: 3668 Регистрация: 13.7.2003 Где: 58°38' с.ш. 4 9°41' в.д. Репутация: 58 Всего: 112 |
так, только не i:=nrr, а i:=nrr+1, да и зачем такой for заменять на while ? оставь как было...
-------------------- С уважением, г-н Посол. |
|||
|
||||
| Unregistered |
|
|||
|
Unregistered |
Да у меня там гон какой-то был поэтому и заменял.
Лать позже буду разбиратья. |
|||
|
||||
| Unregistered |
|
|||
|
Unregistered |
наткнулся на такое:
как это можно заменить? Или в Делфе можно пропустить вообще? |
|||
|
||||
| Unregistered |
|
|||
|
Unregistered |
p0s0l, посмотри я тебе письмо послал, если не сложно
|
|||
|
||||
| p0s0l |
|
|||
|
Г-н Посол Профиль Группа: Экс. модератор Сообщений: 3668 Регистрация: 13.7.2003 Где: 58°38' с.ш. 4 9°41' в.д. Репутация: 58 Всего: 112 |
mark не имеет аналога на Delphi, в TP этой командой можно было запомнить текущее состояние heap
и потом одним Release'ом освобить всю память, которую выделяли после mark... Можешь ли ты мне кинуть еще tpcrt.tpu (а еще лучше tpcrt.pas) ? А то там больно сильно привязано к этому модулю... -------------------- С уважением, г-н Посол. |
|||
|
||||
| Unregistered |
|
|||
|
Unregistered |
Сейчас посмотрю и кину, мне он в делфи разве пригодится?
Я думал это как стандартная библиотека паскаля и уже ненужная фича в Делфи. |
|||
|
||||
| Unregistered |
|
|||
|
Unregistered |
Посмотрел сам код, новой версии tpcrt, вроде он никапли не может пригодиться в Делфе, он же только для разных выводов на экран... и еще что-то со звуком видел, или ты хочешь откомпилить саму прогу чтобы посмотреть что она из себя представляет?
|
|||
|
||||
| p0s0l |
|
|||
|
Г-н Посол Профиль Группа: Экс. модератор Сообщений: 3668 Регистрация: 13.7.2003 Где: 58°38' с.ш. 4 9°41' в.д. Репутация: 58 Всего: 112 |
Да. А то непонятно, что за прога вообще. Я так понял, это ТАУ ? Просто для начала можно было бы заменить функции из tpcrt дельфинскими, чтобы проблема осталась только в алгоритме, а не в выводе на экран. -------------------- С уважением, г-н Посол. |
|||
|
||||
|
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
[ Время генерации скрипта: 0.1387 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |