Access violation при передачи аргумента в PS

[Bubonic Pestilence]

Имеем вот такую красавицу, вроде бы написано по всем истокам паскаля, но выпадает:

06:19:09:598 [[RPG] Fermi]: Error exec script method "main" - Access violation at address 0040B94D in module 'Stealth.exe'. Read of address 00000000

Кто-нибудь может воспроизвести эту багу на 6.5.3?

Code: Select all

Program AccessVio;

uses SysUtils;

function loot_add(a: Integer; b: Integer): Integer;
begin
  AddToSystemJournal('x1');
  IntToStr(a);
  AddToSystemJournal('x1-1');
  IntToStr(b);
  AddToSystemJournal('x2');
  
  Result := 1;
end;

procedure main();
begin
  AddToSystemJournal('n1');
  loot_add(1, 1); // GP
  AddToSystemJournal('n2');
end;

begin
  main();
end.

[Bubonic Pestilence]

Int64ToStr спас меня )

[Vizit0r]

исправлено - двойной импорт процедур (сначала правильный, потом кривой + изменения размеров параметров в новых версиях дельфей = баг.

[Bubonic Pestilence]

исправлено - двойной импорт процедур (сначала правильный, потом кривой + изменения размеров параметров в новых версиях дельфей = баг.

Я очень рад что Вы баг-то исправили.
Но где скачать этуу самую свежую версию? на сайте 652 и обновляться не хочет :"(

[Vizit0r]

надо выложить.
завтра может доберусь нормально до ноута и скину.