VPF::Перевод из паскаля на дельфи - Форум программистов

Mr_Nuke

Дата 19.5.2009, 18:16 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

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

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

Добрый день форумчане!
Взялся помочь хорошей знакомой, она прислала программу и попросила перевести ее из паскаля в дельфи. Сначала как-то не сообразил, а потом вижу, что у дельфи и паскаля код одинаковый! Или может я что не понимаю?
Программа под дос, не особо сложная, для студентов!
Возможности связаться, уточнить, нету(

bems

Дата 19.5.2009, 19:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

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

Код не одинаковый ,но многие программы работают с минимальными изменениями. Покажи что за код хоть...

--------------------

Обижено школьников: 8

Mr_Nuke

Дата 19.5.2009, 20:14 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

Код большой и разбит на модули! тысячу строк с лихвой будет :(

Нашел загвоздку! В паскале используется консольная графика.
Искал готовые модули, аналог crt для дельфи, мож у кого есть готовое?

так же, подскажите, в каком модуле находятся KeyEvent, MouseEvent, dwMousePosition?

Keeper89

Дата 19.5.2009, 20:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Mr_Nuke, опишите задачу и предоставьте основные блоки и модули кода.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Mr_Nuke

Дата 19.5.2009, 21:11 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

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

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

Не особо понимаю, какие блоки кода вы хотите увидеть. Но если быть ближе к теме, пытаюсь, что бы дельфи воспринимал команды "window", gotoXY, textbackground, textcolor и т.д.

Модуль crt взял отсюда http://forum.sources.ru/index.php?showtopi...mp;#entry518611

Выдает ошибку на функции

Код


function KeyPressed: Boolean;
var
  NumberOfEvents: DWORD;
  NumRead: DWORD;
  InputRec: TInputRecord;
  Pressed: boolean;
begin
  Pressed := False;
  GetNumberOfConsoleInputEvents(hConsoleInput, NumberOfEvents);
  if NumberOfEvents > 0 then
  begin
    if PeekConsoleInput(hConsoleInput, InputRec, 1,NumRead) then
    begin
      if (InputRec.EventType = KEY_EVENT) and
        (InputRec{$IfDef NEW_STYLES}.Event{$EndIf}.KeyEvent.bKeyDown) then
      begin
        Pressed := True;
        {$IfDef MOUSE_IS_USED}
        MouseButtonPressed := False;
        {$EndIf}
      end
      else
      begin
        {$IfDef MOUSE_IS_USED}
        if (InputRec.EventType = _MOUSE_EVENT) then
        begin
          with InputRec{$IfDef NEW_STYLES}.Event{$EndIf}.MouseEvent do
          begin
            MousePosX := dwMousePosition.X;
            MousePosY := dwMousePosition.Y;
            if dwButtonState = FROM_LEFT_1ST_BUTTON_PRESSED then
            begin
              MouseEventTime := Now;
              MouseButtonPressed := True;
              {If (dwEventFlags AND DOUBLE_CLICK)<>0 Then Begin}
              {End;}
            end;
          end;
        end;
        ReadConsoleInput(hConsoleInput, InputRec, 1,NumRead);
        {$Else}
        ReadConsoleInput(hConsoleInput, InputRec, 1,NumRead);
        {$EndIf}
      end;
    end;
  end;
  Result := Pressed;
end;

а точнее, на строке

Код


(InputRec{$IfDef NEW_STYLES}.Event{$EndIf}.KeyEvent.bKeyDown) then

пишет undeclared identifier 'KeyEvent'

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