FPC/Lazarus-ban random SIGSEGV errorokat kapok a class-jaimra. Pedig jól néznek ki a Complier se szól, csak amikor futnia kéne akkor meghal. Mi lehet a probléma?

példának okáért itt is van egy egszerűbb:

type Tsettings=class

values:array of array[0..2] of string;

loaded:boolean;

function get(mit:string):string;

function isSet(mit:string):boolean;

constructor load(filepath:string);

end;

function Tsettings.get(mit:string):string;

var i: word;

fund:boolean;

begin

if loaded then

begin

i:=low(values);

fund:=false;

Repeat

if Upcase(values[i,1]) = Upcase(mit) then fund:=True

else inc(i);

until fund or (i = High(values));

if fund then get:=values[i,2]

else get:='Error: 1';

end else get:='Error: 2';

end;

ha futnia kéne meghal, az "if loaded then" soron, ha kiveszem akkor pedig az "if Upcase(values[i,1]) = Upcase(mit) then fund:=True" soron

de itt egy másik is:

type

particles=class

may,miy:single;

pos:TVector3f; // ez egy típus amiben van egy x egy y és egy z ami single

speed:single;

constructor createfalling(py,ly,pspeed:single);

procedure update;

procedure render;

end;

procedure particles.update;

begin

if pos.y < miy then

begin

pos.x:=Random(512)-256;

pos.z:=Random(512)-256;

pos.y:=may;

end else begin

pos.y:=pos.y-speed;

end;

end;

itt pedig az "if pos.y < miy then" soron hal be.

úgy néz ki mintha az if-eken halna be, de más classok is vannak if-ekkel, és azok mennek, a másik meg hogy a class belső változóitól, de ugyanúgy, mások mennek vele.

a SIGSEGVről ezt találtam:

SIGSEGV = Segmentation Fault = Access Violation under Win

Common causes are;

-> miscalculating array ranges in your loops,

-> accessing objects when not created,

-> or just plain and simple trying to access memory that was not allocated for use.

nincs valakinek bármi építő ötlete, mert ez egy nagyon bosszantó error, amivel nem tudok mit kezdeni :(