Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.06.2019, 15:08   #11
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

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


Цитата:
Сообщение от Анпри Посмотреть сообщение
я пыталась откомпилировать его и на 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 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
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 14:37
Проблема с рамами/Проблема с ЖД DRAGGER Компьютерное железо 6 04.01.2009 23:37