Возможность компиляции Delphi2 проекта в Lazarus?

[Electric]

Electric, добавьте в секцию uses в 'Undo.pas название модуля Controls.

Да, помогло, эта ошибка исчезла. Но вылезли новые, уже что-то с названием цветов:

Код: Выделить всё

if (Imagoo.TapItem.checked) then begin
      pComp^.pImg_s^.canvas.font.color := clFuchsia;
    end else begin
      pComp^.pImg_s^.canvas.font.color := clBlack;
    end;

Код: Выделить всё

with pComp^.pImg_s^.canvas do begin
      pen.color := clWhite;
      pen.width := 1;
      brush.color := clWhite;
      brush.style := bsSolid;
      rectangle(0,ipu,pComp^.pImg_s^.width,ipu+pComp^.pImg_s^.height div 2);
    end;

Пишет:

Error: TapChanger.pas: Undeclared identifier: 'clFuchsia'
Error: TapChanger.pas: Undeclared identifier: 'clBlack'
Error: TapChanger.pas: Undeclared identifier: 'clWhite'
Error: TapChanger.pas: Undeclared identifier: 'bsSolid'

Добавлено спустя 39 минут 46 секунд:
Добавил в uses файла TapChanger модуль Graphics - проект скомпилировался на Delphi 3 .

Добавлено спустя 46 минут 31 секунду:
В новую виртуалку установил Delphi 4, затем сторонние компоненты. Запускаю компиляцию и на этих фрагментах кода вылетают ошибки:

Код: Выделить всё

pEnabled := @pClrWire_s^.enabled;

Код: Выделить всё

pEnabled        := @Enabled;

Код: Выделить всё

pNEnabled    := @pName_s^.Enabled;

Ошибка во всех трех случаях:

[Error] Skemadef.pas: Varible required
[Fatal Error] Enumenu.pas: Could not compile used unit 'Skemadel'

Сама переменная pClrWire_s в коде - это какой-то указатель на изображение:

Код: Выделить всё

pClrWire_s : TpImage;      {pointer to an image of colored wire}

[Cheb]

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

Код: Выделить всё

pEnabled := @(pClrWire_s^.enabled);

Я у себя в движке @ всегда со скобками использую - не помню уже, почему, но возможно, именно поэтому.
Похоже, компилятор трактует @pClrWire_s^.enabled как @(pClrWire_s)^.enabled , тупо кастуя указатель к бестиповому.

[Electric]

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

Код: Выделить всё

pEnabled := @(pClrWire_s^.enabled);

Я у себя в движке @ всегда со скобками использую - не помню уже, почему, но возможно, именно поэтому.
Похоже, компилятор трактует @pClrWire_s^.enabled как @(pClrWire_s)^.enabled , тупо кастуя указатель к бестиповому.

Не помогло. Та же ошибка.

[Снег Север]

Electric, в делфи ошибка "Varible required" обычно сигнализирует, что неправильно применяется оператор @ (ссылка). Например, к классу - в делфи класс, это уже ссылка. Получется ссылка на ссылку и компилятор впадает в ступор... Надо внимательно разбираться с такими местами, ето требует времени, разумеется.

[Cheb]

Тогда у меня исчерпались идеи. Дельфи 4 была последняя версия, которой я пользовался - после этого пересел на фри паскаль, за исключением краткого экскурса в сторону турбо дельфи експлорер (2006 ?) Но я в те годы был таким нубом, что не запомнил особенностей той версии.

Может быть, там где-то включилось {$T+} она же {$TypedAddress On} ?
Если она вообще была в той версии.
1.

Код: Выделить всё

pEnabled := pointer(@(pClrWire_s^.enabled));

2. Убедиться, что поле enabled не превратилось в тыкву (например, что это не свойство и не функция).
3. Убедиться, что тип(pClrWire_s^) - это запись, а не иная неведома зверушка вроде дедовского object.

[SSerge]

Тогда у меня исчерпались идеи.

У дельфей начиная с какой-то версии, стало запрещено присваивать указателям, имеющим тип, значения безымянных указателей (pointer) без прямого кастинга, т.е. TmyType(pointer) или (pointer as TmyType).
Это наверное и выползает.

[iskander]

У дельфей начиная с какой-то версии, стало запрещено присваивать указателям, имеющим тип, значения безымянных указателей (pointer) без прямого кастинга

Что-то сомнительно.
Во всяком случае текущая справка утверждает:

Type Compatibility.
Every type is compatible with itself.
Two distinct types are compatible if they satisfy at least one of the following conditions.
...
One type is Pointer (an untyped pointer) and the other is any pointer type.
...

[Снег Север]

One type is Pointer (an untyped pointer) and the other is any pointer type.

Не помню как там в древних версиях, но сейчас это работает в одну сторону - переменной pointer можно присвоить любую ссылку, но не наоборот, там уже потребуется приведение типов.

[Electric]

Electric, в делфи ошибка "Varible required" обычно сигнализирует, что неправильно применяется оператор @ (ссылка). Например, к классу - в делфи класс, это уже ссылка. Получется ссылка на ссылку и компилятор впадает в ступор... Надо внимательно разбираться с такими местами, ето требует времени, разумеется.

Причина скорее всего в этом, но пофиксить её малореально. Я в свое время имел дело только с Delphi 7, писал на нем простейшие калькуляторы, но указатели и ссылки для меня, что в дельфях, что в си плюсах - темный лес.
TpImage упоминается в нескольких файлах проекта, это указатель на TImage.

Код: Выделить всё

type 
  TpImage = ^TImage;

соответственно, pClrWire_s по типу является указателем TpImage:

Код: Выделить всё

pClrWire_s : TpImage;

pEnabled в свою очередь - это константа и ссылка на nil.

Код: Выделить всё

const
pEnabled : ^boolean   = nil;

Добавлено спустя 27 минут 22 секунды:

Может быть, там где-то включилось {$T+} она же {$TypedAddress On} ?

Нет, этих директив (?) в коде проекта не найдено.

1.

Код: Выделить всё

pEnabled := pointer(@(pClrWire_s^.enabled));

2. Убедиться, что поле enabled не превратилось в тыкву (например, что это не свойство и не функция).
3. Убедиться, что тип(pClrWire_s^) - это запись, а не иная неведома зверушка вроде дедовского object.

Пункт 1 ничего не изменил, с остальными пытаюсь разобраться.

[iskander]

сейчас это работает в одну сторону - переменной pointer можно присвоить любую ссылку, но не наоборот, там уже потребуется приведение типов.

Следующий фрагмент без особых возражений компилируется в Delphi 10.3 CE:

Код: Выделить всё

type
  TRec = record a, b: Int64 end;
  PRec = ^TRec;

procedure Test;
var
  r: TRec;
  p, p1: Pointer;
  pr, pr1: PRec;
  I: Integer;
begin
  pr := @r;
  p := pr;
  p1 := @I;
  pr1 := p1;
  pr1 := @I;
  p := pr1;
end;


Что я делаю не так?

[Cheb]

Код: Выделить всё

const
pEnabled : ^boolean   = nil;

Код: Выделить всё

pEnabled :=

Тащемта, имеет место недокументированный хак. Сто раз получилось, а в стопицотый - облом.

Встречайте: {$J, она же {$WRITEABLECONST

http://docs.embarcadero.com/products/ra ... s_xml.html объясняет:

In early versions of Delphi and Object Pascal, typed constants were always writeable, corresponding to the {$J+} state. Old source code that uses writeable typed constants must be compiled in the {$J+} state, but for new applications it is recommended that you use initialized variables and compile your code in the {$J-} state.

Фри Паскаль эту байду по умолчанию ставит в ON, а вот как насчёт четвёртого дельфи?
Возможно, именно там запретили пользоваться типизованными константами, как переменными.

[Electric]

Тащемта, имеет место недокументированный хак. Сто раз получилось, а в стопицотый - облом.

Встречайте: {$J, она же {$WRITEABLECONST

Я пробовал раньше добавлять эту директиву в проблемный skemadef.pas файл, который выдавал ошибку "variable required", но это ни на что не влияло. Только сейчас решил добавить эту директиву в главный файл проекта сразу после "unit", и это привело к изменениям. Компилятор не пишет ничего про те прежние ошибки в skemadef (возможно он не доходит до них), он находит целую кучу ошибок в главном файле. Пытаюсь понять, что к чему.

Добавлено спустя 16 минут 10 секунд:
Куча ошибок в главном файле исчезла, когда я заменил проблемную переменную на указатель на неё.
После этого ошибки в главном файле исчезли, возникли в другом файле и тоже с указателями

Код: Выделить всё

unit Paramrep;
{$J+}
interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, StdCtrls, ComCtrls, Tabnotbk, ExtCtrls, Tab, Utildef, Skemadef,
  Imagodef, Routines, Buttons, Earthflt, shortcir, printers,PQrelay, polygon,
  recloser;

type
  TParamForm = class(TForm)
    TetMenu: TMainMenu;
    FileMenu: TMenuItem;
    PageItem: TMenuItem;
    PrintItem: TMenuItem;
    SaveItem: TMenuItem;
    N1: TMenuItem;
    ExitItem: TMenuItem;
    EditItem: TMenuItem;
    TabItem: TMenuItem;
    DelItem: TMenuItem;
    ButPanel: TPanel;
    Params: TTabbedNotebook;
    ParamMemo: TMemo;


далее упоминание по тексту последней переменной ParamMemo вызывает ошибку "Incompatible types: TMemo and TRichEdit"

Код: Выделить всё

procedure TParamForm.FormCreate(Sender: TObject);
{initialize the form position etc.}
var
  ii : integer;  {index}
begin
  {initialize the memos}
  for ii := 1 to maxmem do begin     {clear pointers to memos initially}
    MemoPntrArr[ii] := nil;
  end;
  MemoPntrArr[1] := @ParamMemo;