Блог

#delphi

#delphi

Вопрос:

Комментарии:

1. Просто удалите файл из списка и посмотрите, какие идентификаторы отсутствуют. Тогда вам придется придумать, как их как-то реализовать, используя современные функции. Ссылка, на которую указывает Андреас, кажется многообещающей, но не пытайтесь скопировать этот код. Вам следует подумать, как наилучшим образом реализовать недостающую функциональность в новом коде.

2. Знаете ли вы, что вы можете редактировать вопросы и добавлять комментарии. Мы продолжаем задавать вам вопросы в комментариях, но вы никогда не отвечаете. Если бы вы больше занимались, мы могли бы помочь вам лучше? Зачем вам нужно конвертировать в 64-разрядную версию? Windows 64 отлично запускает 32-разрядные программы. Или это действительно программа Delphi 1?

3. Просматривая код, на который ссылается Андреас, становится ясно, что это 16-разрядный код Windows 3.1. Эра Delphi 1. Я не могу поверить, что ваш исходный код — это Delphi 2, который был 32-разрядным. Вот почему я думаю, что вы пытаетесь обновиться до современного Delphi. Потому что 64-разрядная ОС не может запускать 16-разрядный код. Вам было бы проще сначала перенести на 32-разрядный Delphi до Unicode. Скажем, Delphi 2007. У вас есть права на использование этой версии при покупке XE2. Я не могу избавиться от ощущения, что мы могли бы помочь вам лучше, если бы вы были более откровенны.

4. Мой друг хочет запустить эту программу на 64-битной системе, которая выдает сбой, из-за которого она не может ее выполнить…. Я думал, что это 32-битная программа, но я не уверен. есть ли какая-либо возможность выяснить это?

5. Дэвид Хеффернан вводит вас в заблуждение. WinDos Turbo Pascal for Windows — это модуль обратной совместимости для целевой версии Windows 3.1. Вы должны переписать любой код в зависимости от него.

Ответ №1:

Комментарии:

1. о, воспоминания, я помню это устройство (WinDos) из эпохи Turbo Pascal. это были хорошие времена. 🙂

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

3. @Torbins: Ну, но это идеальный ответ на вопрос. Действительно, ОП спросил: «Где я могу найти WinDos.pas?»

4. Ах, модуль WinDOS в Turbo Pascal воспоминания о прошлых эпохах (список прерываний Ральфа Брауна) [ ctyme.com/rbrown.htm ] и такое… 🙂

5. @Andreas Rejbrand: Какова цель stackoverflow.com ? Это просто набор результатов поиска Google, которые просто вводят людей в заблуждение?

Ответ №2:

 function GetArgCount:Integer;
begin
   result := ParamCount; 
end;
  

Ответ №3: