LINUX.ORG.RU

Состоялся выпуск FPC 3.2.2

 , ,


0

5

20 мая 2021 года состоялся выпуск FPC 3.2.2!

FPC – это свободный (GNU GPL 2) компилятор Паскаля.

Со времени выхода FPC 3.2 прошёл почти 1 год. (Версия 3.2.0 вышла 19 июня 2020.)

Новые возможности:

  1. Поддержка сборки программ под новые маки на ARM64 (macOS/AArch64).

  2. Сохранение ссылок на методы записей в переменные (совместимость с Delphi).

program test;

{$Mode Delphi}

type R = record
    var X: Integer;
    function Foo: Integer;
end;

function R.Foo: Integer;
begin
    result := X
end;

var    F: function : Integer of object;
    Z: R = (X:42);
begin
    // Сейчас компилируется
    // в 3.2.0 : 'Error: Incompatible types'
    F := Z.Foo;
    if F() <> 42 then
      Halt(1);
end.
  1. Юнит для MySQL теперь поддерживает MySQL 8.0.

  2. У класса TThread появилось поле TThread.NameThreadForDebugging (совместимость с Delphi).

>>> Список изменений, которые могут нарушить обратную совместимость

>>> Скачать

>>> Официальный сайт

★★★★★

Проверено: xaizek ()
Последнее исправление: CYB3R (всего исправлений: 3)
Ответ на: комментарий от anonymous

Разный софт наподобие того, который я в т.ч. и на Си писал. Примеры моего софта можно найти на моём сайте: https://saahriktu.org/ .

Из софта на Паскале там уже выложены, например, Thundermaker и Blazing Creator: https://saahriktu.org/downloads/blazingcreator-0.6.tar.xz , https://saahriktu.org/downloads/thundermaker-0.9.tar.xz .

Потом допричешу и выложу ещё ряд софта на Паскале.

saahriktu ★★★★★
()
Ответ на: комментарий от zamtmn

Message:

Access violation.

Press OK to ignore and risk data corruption.
Press Abort to kill the program.
[Abort][OK]

Жму [OK] — и тихо. В консоли:

> /usr/local/zcad/zcad leam lm_trace
{N+}GetSysInfo
{N+}ProcessParamStr
{N}Found param command line parameter "LEAM"
{N}Found param command line parameter "LM_TRACE"
{N-}end;{ProcessParamStr}
{N}ZCAD log v0.9.8.Unknown started
{N}Program compiled on Free Pascal Compiler
{N}Program compiled with {$DEFINE BREACKPOINTSONERRORS}
{N}DefaultSystemCodePage:=65001
{N}DefaultUnicodeCodePage:=0
{N}UTF8CompareLocale:=0
{N}SysParam.ProgramPath="/usr/"
{N}SysParam.TempPath="/tmp/"
{N}SysParam.UserPath="/usr/home/igor/.zcad/"
{N}SysParam.ScreenX=1920
{N}SysParam.ScreenY=1080
{N}SysParam.NoSplash=False
{N}SysParam.NoLoadLayout=False
{N}SysParam.UpdatePO=False
{N}SysParam.PreloadedFile=""
{N-}end;{GetSysInfo}
{D+}[ZSCRIPT]Varman.startup
{D-}[ZSCRIPT]end; {Varman.startup}
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBBoolean"
{E}Type "GDBBoolean" not defined in unit "sysvar"
{I}[UnitsInitialization] Unit "uzeparser.pas" initialization
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBBoolean"
{E}Type "GDBBoolean" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBBoolean"
{E}Type "GDBBoolean" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBBoolean"
{E}Type "GDBBoolean" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBBoolean"
{E}Type "GDBBoolean" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"

{W}In unit "sysvar" not found type "GDBBoolean"
{E}Type "GDBBoolean" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBBoolean"
{E}Type "GDBBoolean" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBBoolean"
{E}Type "GDBBoolean" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBInteger"
{E}Type "GDBInteger" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
iZEN ★★★★★
()
Ответ на: комментарий от iZEN
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBInteger"
{E}Type "GDBInteger" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBBoolean"
{E}Type "GDBBoolean" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBInteger"
{E}Type "GDBInteger" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBInteger"
{E}Type "GDBInteger" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBDouble"
{E}Type "GDBDouble" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBDouble"
{E}Type "GDBDouble" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "TRGB"
{E}Type "TRGB" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBInteger"
{E}Type "GDBInteger" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBDouble"
{E}Type "GDBDouble" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBBoolean"
{E}Type "GDBBoolean" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBBoolean"
{E}Type "GDBBoolean" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "TGDBPaletteColor"
{E}Type "TGDBPaletteColor" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "TGDBPaletteColor"
{E}Type "TGDBPaletteColor" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "TGDBPaletteColor"
{E}Type "TGDBPaletteColor" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "TGDBPaletteColor"
{E}Type "TGDBPaletteColor" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "TGDBOSMode"
{E}Type "TGDBOSMode" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "Boolean"
{E}Type "Boolean" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBInteger"
{E}Type "GDBInteger" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
iZEN ★★★★★
()
Ответ на: комментарий от iZEN
{W}In unit "sysvar" not found type "GDBBoolean"
{E}Type "GDBBoolean" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBBoolean"
{E}Type "GDBBoolean" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "TGDB3StateBool"
{E}Type "TGDB3StateBool" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBBoolean"
{E}Type "GDBBoolean" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBBoolean"
{E}Type "GDBBoolean" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBBoolean"
{E}Type "GDBBoolean" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBInteger"
{E}Type "GDBInteger" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBInteger"
{E}Type "GDBInteger" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBBoolean"
{E}Type "GDBBoolean" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBInteger"
{E}Type "GDBInteger" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBDouble"
{E}Type "GDBDouble" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBBoolean"
{E}Type "GDBBoolean" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBBoolean"
{E}Type "GDBBoolean" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBBoolean"
{E}Type "GDBBoolean" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBInteger"
{E}Type "GDBInteger" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBInteger"
{E}Type "GDBInteger" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBBoolean"
{E}Type "GDBBoolean" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBInteger"
{E}Type "GDBInteger" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBBoolean"
{E}Type "GDBBoolean" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBInteger"
{E}Type "GDBInteger" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
iZEN ★★★★★
()
Ответ на: комментарий от iZEN
{W}In unit "sysvar" not found type "GDBInteger"
{E}Type "GDBInteger" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBBoolean"
{E}Type "GDBBoolean" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBString"
{E}Type "GDBString" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBString"
{E}Type "GDBString" not defined in unit "sysvar"
[FILEOPS]FindInSupportPath: searh file:"System.pas"
[FILEOPS]FindInSupportPath: file name expand to:"System.pas"
[FILEOPS]FindInSupportPath: searh in "/usr/"
[FILEOPS]FindInSupportPath: file not found:"System.pas"
{W}In unit "sysvar" not found type "GDBString"
{E}Type "GDBString" not defined in unit "sysvar"
{I}GLU Version:="1.3"
{I}GLU Extensions:="GLU_EXT_nurbs_tessellator GLU_EXT_object_space_tess "
[FORMS.PP] ExceptionOccurred 
  Sender=EAccessViolation
  Exception=Access violation
  Stack trace:
  $000000000044C33C
  $00007FFFFFFFE193
  $00000000004B12C6
{I}[UnitsFinalization] Unit "uzegluinterface.pas" finalization
<...>
{I}[UnitsFinalization] Unit "uzcoimultiobjects.pas" finalization
{T+}[ZSCRIPT]varmanager.done;
<...>
{T-}[ZSCRIPT]varmanager.done;//end
{I}[UnitsFinalization] Unit "uzcoimultipropertiesutil.pas" finalization
{I}[UnitsFinalization] Unit "uzehelpobj.pas" finalization
{I}[UnitsFinalization] Unit "uzctreenode.pas" finalization
{I}[UnitsFinalization] Unit "uzccommandsmanager.pas" finalization
{T+}[ZSCRIPT]varmanager.done;
{T-}[ZSCRIPT]varmanager.done;//end
{I}[UnitsFinalization] Unit "uzcinfoform.pas" finalization
<...>
{I}[UnitsFinalization] Unit "UUnitManager.pas" finalization
{T+}[ZSCRIPT]varmanager.done;
{T-}[ZSCRIPT]varmanager.done;//end
{T+}[ZSCRIPT]varmanager.done;
{T}[ZSCRIPT]vardeskclear: "ShowHiddenFieldInObjInsp"
[FORMS.PP] ExceptionOccurred 
  Sender=EAccessViolation
  Exception=Access violation
  Stack trace:
  $000000000044C33C
  $00007FFFFFFFE193
  $00000000004A9286
  $00000000004ABA68
  $00000000004ADE10
  $00000000004B3E54
  $00000000004B247F
  $00000000004B82C6
  $000000000043D936
  $000000000043DCC0
  $000000000043DD09
  $000000000043DD67
  $0000000000439531
  $000000000043964C
  $0000000000503C96
  $000000000043DED7
  $000000000043DF94
{I}[UnitsFinalization] Unit "uzcfsplash.pas" finalization
{I}[UnitsFinalization] Unit "uzclog.pas" finalization
iZEN ★★★★★
()
Ответ на: комментарий от zamtmn

Распаковал файл с исходниками zamtmn-zcad-0.9.8.5-8b8a693_GH0.tar.gz в домашний каталог с проектами.

Пытаюсь открыть файл проекта zcad-8b8a693/cad_source/zcad.lpi в запущенной среде lazarus-gtk2-2.0.10 и получаю отлуп:

Отсуствующие пакеты

Следующие пакеты не были загружены:

uniqueinstance_package
zmacros
laz.virtualtreeview_package
ztoolbars
ag_graph
ag_vectors
zmath
zobjectinspector
zundostack
zscript
zscriptbase
zcontainers
zebase
zcontrols
Смотрите Проект -> Инспектор проекта

Но как же так, они все доступны в исходниках в подкаталогах каталога zcad-8b8a693/cad_source/components/.

Похоже, без знания среды Lazarus и настройки сборки проекта самостоятельно пересобрать этот проект нереально.

iZEN ★★★★★
()
Ответ на: комментарий от iZEN

хз. както настроили установку зависимостей. их можно поставить руками или поправив виндовый батник https://github.com/zamtmn/zcad/blob/master/installpkgs.bat

кроме того перед компиляцией нужно еще запустить https://github.com/zamtmn/zcad/blob/master/zcadelectrotech.bat

zamtmn ★★
()
Последнее исправление: zamtmn (всего исправлений: 2)
Ответ на: комментарий от anonymous

Да. Также как и C# отличается от C и Objective-C.

PascalABC.NET построен уже на дотнете.

FPC же реализует диалекты Паскаля, которые уже были к концу 90-х.

saahriktu ★★★★★
()
Ответ на: комментарий от anonymous

Паскале подобный вызов функций (на уровне assemblera), в отличие от си, мне всегда нравился больше, со времён доса до win32, как сейчас не в курсе:

  • стек освобождает сама функция, а не в месте вызова функции как в си;
  • строки по умолчанию не всегда хранят свой размер отдельно;

Всё это делало переполнение по стеку невозможным.
Недаром большинство функции в winapi объявлены в стиле PASCAL.

s-warus ★★★
()
Ответ на: комментарий от zamtmn

Не можешь подсказать где удобнее писать САПР на паскале или в Qt? Я не настоящий программист и поэтому хочется чего-то поудобнее, чтобы собрать редактор электрических схем. В Qt прнравится QGraphicsScene, который позволяет неплохо упростить всякие манипуляции с объектами. Т.е. сравинтельно можно легко создать виджет, в котором можно будет перемещать элементы, крутить их, масштабировать и т.п. Как с этим в паскале? Я уже смотрел, и мне показалось, что это будет гораздо более громоздко и низкоуровнево. Может я не прав? Какие модули ZCAD реализуют главный графический виджет и его элементы, чтобы посмотреть можно было на реазизацию?

anonymous
()
Ответ на: комментарий от anonymous

Удобнее на том на чем умеешь. В зкаде все самописное, в паскале с этим почти никак

QGraphicsScene я не смотрел, но обычно чужие компоненты недостаточно быстры для моих нужд, как для твоих незнаю. ZCAD кстати тоже начинался как резактор электрических схем и я не програмист))

Виджета как такового нет, есть чертеж https://github.com/zamtmn/zcad/blob/master/cad_source/zcad/core/drawings/uzcdrawing.pas и области отображения с драверами https://github.com/zamtmn/zcad/tree/master/cad_source/zengine/zgl/drawers

Писать с нуля - нестоит имхо, примкни к готовому лучше

zamtmn ★★
()
Последнее исправление: zamtmn (всего исправлений: 1)
Ответ на: комментарий от zamtmn

Cпасибо! Погляжу на досуге и попробую для себя сравнить и решить что будет удобнее и веселее.

anonymous
()

FPC - мой самый любимый язык программирования …

Любимый мой Паскаль
с тобой я в будущее поскакаль ...

Влaдимир

anonymous
()
Ответ на: комментарий от saahriktu

Скажите, а по книгам по Делфи можно Лазарус изучить? Они похожи, вроде, но по Лазарусу книг почти нет.

anonymous
()
Ответ на: комментарий от anonymous

Эту скачал, спасибо. Она старовата, правда.

Да. И правда про Lazarus там не очень много :( Но как ты сказал «по Лазарусу книг почти нет.»

Вот небольшой туториал: https://youtu.be/C8hLHHOaOQQ

Кое-что можно найти в ютубе или на гитхабе.

Delphi только старый похож на Lazarus. Новый отличается значительно :(

fsb4000 ★★★★★
() автор топика
Последнее исправление: fsb4000 (всего исправлений: 1)
Ответ на: комментарий от anonymous

Delphi бесплатен (с ограничениями, типа ты не должен получать больше скольки то долларов с программ итд) и Embarcadero постоянно делает рассылки с обучающими бесплатными материалами.

MOPKOBKA ★★★★
()
Ответ на: комментарий от fsb4000

Поглядел мельком, что-то в этой книге чушь какая-то встречается.
Например стр.300 Динамические матрицы
Дальше не смотрел, пока лень.
И не матрица, а массив. И т.д. и т.п.
Динамический массив - это массив, размеры которого неизвестны во время компиляции. https://wiki.freepascal.org/Dynamic_array/ru

superuser ★★★★☆
()
Последнее исправление: superuser (всего исправлений: 5)
Ответ на: комментарий от MOPKOBKA

Я читал, что там и версия Делфи какая то урезанная бесплатно. Если ничего не изменилось, конечно.

anonymous
()
Ответ на: комментарий от MOPKOBKA

А Delphi -turbo какие имеет ограничения по сравнению с коммерческими?

iZEN ★★★★★
()
Ответ на: комментарий от anonymous

Определённая совместимость есть, но только до определённого предела.

saahriktu ★★★★★
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.