Y
ладно, будем считать, винда. а какая битность? дебаг или релиз? какой билд? релиз или транк?
И транк и релиз так ведут себя.
Size: a a a
2020 December 18
AK
Y
ребилд полный спасает? кроме кнопки есть какие-то ещё компоненты?
Полны ребилд не спасает. На форме только конпка, больше ничего нет.
AK
кнопка обычная?
Y
кнопка обычная?
Да
Y
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
MyArr: TIntegerArray;
begin
end;
end.
AK
да, крашит
Y
Памяти, чтоль не хватает на массив :)
Y
да, крашит
Видимо бага, спасибо.
AK
{$ifdef CPU16}
IntegerArray = array[0..(32768 div SizeOf(Integer))-2] of Integer;
{$else CPU16}
IntegerArray = array[0..$effffff] of Integer;
{$endif CPU16}
IntegerArray = array[0..(32768 div SizeOf(Integer))-2] of Integer;
{$else CPU16}
IntegerArray = array[0..$effffff] of Integer;
{$endif CPU16}
AK
никакого бага, в стек столько не влезет
Y
В консольное влезает :)
Y
а в Делфе интересно как?
AK
режим компиляции в консоли какой?
AK
objfpc, delphi или вообще дефолт?
Y
По умолчанию все.
Simple Program.AK
TIntegerDynArray = array of Integer; используй если так надо
AK
возможно, в консоли "не крашит", т.к. там перехват эксепшенов другой
Y
TIntegerDynArray = array of Integer; используй если так надо
Да, способов масса. :) Ну все равно считаю не должно так себя наверное вести, нет?
2020 December 19
AK
почему же?