SRL Archive - OSR Help

What procedures are used to add on to an array and to clear an array. I have multiple Tpoints as well as Tboxes that need to be stored in an array(I know you cant store TPAs and Tboxarrays together), and cleared in the same procedure. My mind has gone blank. I dont know much about TPAs and TBoxarrays and the search has led me to nothing. Thanks for your help guys.

program new;
  var
    Array : Array[0..3] of Integer;
    NewArray : Array of Integer;
    I: integer;

  Begin
    Array[0]:= 1;
    Array[1]:= 5;
    Array[2]:= 8;
    For I:=0 to Length(Array)-1 do
    Setlength(Newarray, I+1);
    Newarray[I]:= array[I];
    SetLength(Array, 0);// clear Array
  end.

are the Tpa's within the Tboxes?
if so you could do this:

type
  Newarrray = record;
    Tbox : Tbox;
    TPAs : TPointArray;
  end;

To add something to an array, just make the array bigger (SetArrayLength(Array, GetArrayLength(Array)+1); ) and to clear one do SetArrayLength(Array, 0);

From: Zyt3x
To add something to an array, just make the array bigger (SetArrayLength(Array, GetArrayLength(Array)+1); ) and to clear one do SetArrayLength(Array, 0);

What is the diffrence between Length and GetArrayLenght?
I always use Length.

There is no difference (AFAIK).
I just do GetArrayLength() because it's good practice :)

Should I dare ask why its "good practice" to use GetArrayLength not just Length?

From: Zyt3x
There is no difference (AFAIK).
I just do GetArrayLength() because it's good practice :)

The diffrence i notice is that i can't do
Value := GetArrayLength(Array);
Writeln(inttostr(value));

But i can do:
Value := Length(Array);
Writeln(inttostr(value));

From: Bad Boy JH
Should I dare ask why its "good practice" to use GetArrayLength not just Length?

Because Length() should actually be for strings, while GetArrayLength should be for arrays :)
Actually, there should be a StrLen() imo (even though Length() is just fine)

EDIT:

From: nielskool
The diffrence i notice is that i can't do
Value := GetArrayLength(Array);
Writeln(inttostr(value));

But i can do:
Value := Length(Array);
Writeln(inttostr(value));

Both work just fine for me :P

GetArrayLength gives me:
[Runtime Error] : Could not call proc in line 6 in script
Simba and SCAR 3.22

i know what is the problem xD
it doesn't work if you do this:
arr: array[0..3] of integer;

and that is what i did to try it.. so normaly it would work.

^ SCAR 3.22? We're on 3.23.

Thanks for the GetArrayLength and SetLength, but thats just for integers right? how do i add a Tpoint into an array though?
Pt := Point(T[r].x, T[r].y);
Pts := SetArrayLength(Pt, GetArrayLength(Pts)+1); ?? I dont know what to do here.
Same thing goes for tboxes.

var
  P : TPoint;
  TPA : TPointArray;

begin
  P := Point(1, 1);
  TPA := [Point(0, 0), Point(0, 1), Point(1, 0)];
  SetArrayLength(TPA, GetArrayLength(TPA)+1);
  TPA[High(TPA)] := P;
end.

Thanks a lot zyt3x!

From: Junior
Thanks a lot zyt3x!

No problem mate ^^