Ja ich habe da mal nen Problem.Ich versuche ne Klasse zu erstellen was zaw soweit klappt, beim kompilen aber eine EAccessViolation verursacht.
------------------------------------------------------
type Tcrusher=class(Tobject) //habs auch ohne (Tobject) probiert
private
pVertices:Array of LINEVERTEX;
public
procedure Test();
end;
implementation
procedure Tcrusher.Test();
begin
setlength(pVertices,20);
end;
------------------------------------------------------
mach ich die procedure leer kommt irgendwie kein fehler. aber ich kann mir nicht denken das das an dem setlength liegt. in meinem Programm habe ich auch
var Testi:Tcrusher;
aber Testi.Create geht auch net.
------------------------------------------------------
type Tcrusher=class(Tobject) //habs auch ohne (Tobject) probiert
private
pVertices:Array of LINEVERTEX;
public
procedure Test();
end;
implementation
procedure Tcrusher.Test();
begin
setlength(pVertices,20);
end;
------------------------------------------------------
mach ich die procedure leer kommt irgendwie kein fehler. aber ich kann mir nicht denken das das an dem setlength liegt. in meinem Programm habe ich auch
var Testi:Tcrusher;
aber Testi.Create geht auch net.