Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 07.06.2019, 16:08   #11
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 25,592
Репутация: 5617
По умолчанию

Цитата:
Сообщение от Анпри Посмотреть сообщение
Это действительно не мной созданный код
это понятно.


Цитата:
Сообщение от Анпри Посмотреть сообщение
я пыталась откомпилировать его и на free pascal
сомневаюсь.

потому что в FreePascal константа Tab компилируется без всяких проблем.

я Вам больше скажу, если в этот код добавить в начале uses Crt;
Код:
program StegoChange;

uses Crt;

....
и убрать напрочь строчки
Цитата:
Сообщение от Анпри Посмотреть сообщение
Код:
MemW [Dseg : $01FE] := Key1;
      MemW [Dseg : $01FC] := Key2;
то FreePascal компилирует ваш код.

впрочем, ещё раз повторю.
это не значит, что это Вам чем-то поможет.

Цитата:
Сообщение от Анпри Посмотреть сообщение
Я пытаюсь разобраться в работе этой программы
Как Вы пытаетесь разобраться в чужом коде? Что Вы для этого делаете?


p.s. в PascalABC констату можно задать так
Код:
      Tab : array [Index, 1..22] of char =
      (('В','Е','К','М','Н','Р','С','Т','Х','а','е','о','с','А','О','и','к','п','р','т','у',#32),
      ('B','E','K','M','H','P','C','T','X','a','e','o','c','A','O','u','k','n','p','m','y',#00));
Serge_Bliznykov вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ActionScript В чем проблема? while(if(i), Flash проблема со скобками. artscorp Общие вопросы Web 4 09.04.2013 23:41
Неблокирующий сокет Си проблема с закрытием, проблема с закрытием сокетов в цикле mnx_vol C/C++ Сетевое программирование 0 06.11.2012 13:57
Инциализация run-time пакетов и модулей. Проблема с константами ArkaNN Общие вопросы Delphi 7 26.11.2011 18:37
Заполнить двумерный массив константами Lacoste Общие вопросы Delphi 4 15.02.2009 15:37
Проблема с рамами/Проблема с ЖД DRAGGER Железо 6 05.01.2009 00:37


00:34.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru