SRL Archive - Help and Support

Line 27: [Error] (12668:22): Semicolon (';') expected in script 

with this line:

SubPointsP[SubP - 1].X := x;

with this script:

program DDTMHelper;
{.include srl/srl.scar}
type
SubpointsP = array of Record
  X : Integer;
  Y : Integer;
  Color : Integer;
end;
MainpointsP = array of Record
  X : Integer;
  Y : Integer;
  Color : Integer;
end;
var
  SubP,x,y,cx,cy : Integer;
  SubPointsP : Array of SubpointsP;
  MainPointsP : Array of MainpointsP;
  
function DDTMSetup: boolean;

begin
  if IsKeyDown('s') then
  begin
    setlength(SubPointsP, + 1);
    Inc(SubP);
    GetMousePos(x, y);
    SubPointsP[SubP - 1].X := x;// HERE!

setlength(SubPointsP, + 1);

The length of the array SubPointsP is now +1, not Length(SubPointsP) + 1, so when the SubP increases it goes out of range ;)

From: n3ss3s

setlength(SubPointsP, + 1);

The length of the array SubPointsP is now +1, not Length(SubPointsP) + 1, so when the SubP increases it goes out of range ;)

So what should i put? i have tried a lot of things, still not working…

setlength(SubPointsP,Length(SubPointsP) + 1);

should work

From: drizzt

setlength(SubPointsP,Length(SubPointsP) + 1);

should work

I have tried it, still not working…waiting for help…

EDIT: Why is it 'Semicolon expected' error ? it should be an out of range…

You've made it a 2 dimensional array :
the type is declared as an array of record - SubpointsP = array of Record.
you define your var as an array of the type - "SubPointsP : Array of SubpointsP;".
Try removing one of the array's (I recommend the type as it looks like eww) and it should work :)