Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Импортирование кода паскаля в дельфи 
:(
    Опции темы
Gjjo
Дата 28.5.2008, 20:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 28.5.2008

Репутация: нет
Всего: нет



Вопрос: можно ли  импотрировать код паскаля (и надо ли его править) в дельфи и запустить его как консоль?
PM MAIL   Вверх
THandle
Дата 28.5.2008, 20:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372



File->New->Other->Console Application

И пиши туда свой код.
PM   Вверх
Snowy
Дата 28.5.2008, 20:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484



Зависит от кода.
Обычно достаточно просто в начале кода вставить {$APPTYPE CONSOLE}
Но... В Дельфи другие модули. В частности нет Crt.
Если такие модули используются, то как минимум потребуется корректировка кода.
Как максимум - нет аналогов, потому никак.
Также есть некоторые различия в языке (Например вместо Assign нужно писать AssignFile), но это легко лечится.
А так... Зависит от кода. Винда не ДОС. Далеко не всё, что было в ДОС, подойдёт для винды.
Особенно использование ядра. Если идёт прямое обращение к ядру DOS - код можно сразу отправлять на помойку.
PM MAIL   Вверх
Gjjo
Дата 28.5.2008, 20:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 28.5.2008

Репутация: нет
Всего: нет



А возможно ли подключить это к программе например по нажатию кнопки запустится эта прграмма в консол апп... если возможно то как?
PM MAIL   Вверх
THandle
Дата 28.5.2008, 21:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372



Gjjo, можно. WinExec, ShellExute, CreateProcess.

Например:

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
  WinExec('D:\\Prog.exe', SW_SHOW);
end;

PM   Вверх
Gjjo
Дата 28.5.2008, 22:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 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 строку надо заменить или убрать
PM MAIL   Вверх
Snowy
Дата 28.5.2008, 22:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484



Вместо uses crt; вставить {$APPTYPE CONSOLE}
Убрать все clrscr
Сам файл сохранить с расширением dpr, а не pas
И всё...
PM MAIL   Вверх
Gjjo
Дата 29.5.2008, 11:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 28.5.2008

Репутация: нет
Всего: нет



СПАСИБО!!! работает)))(правда русский не воспринимает)  можно еще один оффтопический вопрос, надеюсь великий Snowy не закроет тему) Нужно сделать форму в которой по скролу будет проматываться текст с картинками причем желатьельно что бы картинки были именно в тексте как в вордею подскажите каким лучше инструментом это сделать?
PM MAIL   Вверх
Snowy
Дата 29.5.2008, 12:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484



TWebBrowser, TRichEdit, сторонние компоненты (TRichView, например)
Но! Модератор: Пожалуйста, один топик - один вопрос.
PM MAIL   Вверх
bems
Дата 30.5.2008, 12:35 (ссылка)    | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88



Цитата(THandle @  28.5.2008,  21:01 Найти цитируемый пост)
WinExec('D:\\Prog.exe', SW_SHOW);
недоперешол на Си? smile 



--------------------
Обижено школьников: 8
PM MAIL   Вверх
Gjjo
Дата 30.5.2008, 15:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 28.5.2008

Репутация: нет
Всего: нет



Цитата(THandle @ 28.5.2008,  21:01)
Gjjo, можно. WinExec, ShellExute, CreateProcess.

Например:

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
  WinExec('D:\\Prog.exe', SW_SHOW);
end;

а можно подключить так же html страницу если можно пример?
PM MAIL   Вверх
  
Закрытая темаСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0799 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.