![]() |
Модераторы: Snowy, MetalFan, bems, Poseidon |
![]() ![]() ![]() |
|
Gjjo |
|
|||
Новичок Профиль Группа: Участник Сообщений: 11 Регистрация: 28.5.2008 Репутация: нет Всего: нет |
Вопрос: можно ли импотрировать код паскаля (и надо ли его править) в дельфи и запустить его как консоль?
|
|||
|
||||
THandle |
|
|||
![]() Хранитель Клуба ![]() Награды: 1 Профиль Группа: Админ Сообщений: 3639 Регистрация: 31.7.2007 Где: Moscow, Dubai Репутация: 50 Всего: 372 |
File->New->Other->Console Application
И пиши туда свой код. |
|||
|
||||
Snowy |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 11363 Регистрация: 13.10.2004 Где: Питер Репутация: 31 Всего: 484 |
Зависит от кода.
Обычно достаточно просто в начале кода вставить {$APPTYPE CONSOLE} Но... В Дельфи другие модули. В частности нет Crt. Если такие модули используются, то как минимум потребуется корректировка кода. Как максимум - нет аналогов, потому никак. Также есть некоторые различия в языке (Например вместо Assign нужно писать AssignFile), но это легко лечится. А так... Зависит от кода. Винда не ДОС. Далеко не всё, что было в ДОС, подойдёт для винды. Особенно использование ядра. Если идёт прямое обращение к ядру DOS - код можно сразу отправлять на помойку. |
|||
|
||||
Gjjo |
|
|||
Новичок Профиль Группа: Участник Сообщений: 11 Регистрация: 28.5.2008 Репутация: нет Всего: нет |
А возможно ли подключить это к программе например по нажатию кнопки запустится эта прграмма в консол апп... если возможно то как?
|
|||
|
||||
THandle |
|
|||
![]() Хранитель Клуба ![]() Награды: 1 Профиль Группа: Админ Сообщений: 3639 Регистрация: 31.7.2007 Где: Moscow, Dubai Репутация: 50 Всего: 372 |
Gjjo, можно. WinExec, ShellExute, CreateProcess.
Например:
|
|||
|
||||
Gjjo |
|
|||
Новичок Профиль Группа: Участник Сообщений: 11 Регистрация: 28.5.2008 Репутация: нет Всего: нет |
program linmarix;
uses crt; var I,J,K,rez:integer; var N,S,SP,Z,w:integer; var R,RR: real; var DET: real; var A:array[1..20,1..20] of real; var C:array[1..20,1..20] of real; begin clrscr; randomize; write( '); read(N); while (N>20) or (N<2) do begin clrscr; writeln (''); writeln (' '); read (N); end; if rez = 1 then begin for I:=1 to N do begin for J:=1 to N do Подойдет ли этот код? что в нем исправить? на что заменить может... Как я понял 2 строку надо заменить или убрать |
|||
|
||||
Snowy |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 11363 Регистрация: 13.10.2004 Где: Питер Репутация: 31 Всего: 484 |
Вместо uses crt; вставить {$APPTYPE CONSOLE}
Убрать все clrscr Сам файл сохранить с расширением dpr, а не pas И всё... |
|||
|
||||
Gjjo |
|
|||
Новичок Профиль Группа: Участник Сообщений: 11 Регистрация: 28.5.2008 Репутация: нет Всего: нет |
СПАСИБО!!! работает)))(правда русский не воспринимает) можно еще один оффтопический вопрос, надеюсь великий Snowy не закроет тему) Нужно сделать форму в которой по скролу будет проматываться текст с картинками причем желатьельно что бы картинки были именно в тексте как в вордею подскажите каким лучше инструментом это сделать?
|
|||
|
||||
Snowy |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 11363 Регистрация: 13.10.2004 Где: Питер Репутация: 31 Всего: 484 |
TWebBrowser, TRichEdit, сторонние компоненты (TRichView, например)
Но! Модератор: Пожалуйста, один топик - один вопрос. |
|||
|
||||
bems |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 3400 Регистрация: 5.1.2006 Репутация: 18 Всего: 88 |
-------------------- Обижено школьников: 8 |
|||
|
||||
Gjjo |
|
||||
Новичок Профиль Группа: Участник Сообщений: 11 Регистрация: 28.5.2008 Репутация: нет Всего: нет |
а можно подключить так же html страницу если можно пример? |
||||
|
|||||
![]() ![]() ![]() |
Правила форума "Delphi: Для новичков" | |
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Delphi: Для новичков | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |