SRL Archive - OSR Help

I posted this on Cohn's Tut thread… but I'm kinda rushy for an answer. xD

I'm messing around with Types. Wondering, how do I use a type as an integer?

Type
    SRecord = record
    MoveCoordinateX : array [1..4]of Integer;
    MoveCoordinateY : array [1..4]of Integer;
end;

Movement:Array of SRecord;

Procedure Example (x,y:integer)
begin
  DoSomething(x,y,blah,blah,blah);
end;

begin
  With Movement[0] do
  begin
    MoveCoordinateX[0] := 1 ;
    MoveCoordinateY[0] := 3 ;
  end;
///
    Example(SRecord.MoveCoordinateX[0],SRecord.MoveCoordinateX[0]); // How to make this part work?
/// I get class type error.
end.

Change the SRecord on that line to Movement

I should've seen that. xD… worked 3h straight and got tired lol. Thanks Myles.

Edit: Now I have a "semi colon expected" error at that same last line after changing SRecord to Movement. I just can't see where a semi colon would go.

type
  SRecord = record
    MoveCoordinateX : array [1..4] of Integer;
    MoveCoordinateY : array [1..4] of Integer;
  end;
  TSRecordArray = array of SRecord;
  
var
  Movement : TSRecordArray;

procedure Example(x,y : integer);
begin
  Writeln(Format('%d, %d', [x, y]));
end;

begin
  SetArrayLength(Movement, 1);
  with Movement[0] do
  begin
    MoveCoordinateX[1] := 1;
    MoveCoordinateY[1] := 3;
    Example(MoveCoordinateX[1], MoveCoordinateY[1]);
  end;
end.

Take a look at that? Show exactly what you have though.

From: Sex

type
  SRecord = record
    MoveCoordinateX : array [1..4] of Integer;
    MoveCoordinateY : array [1..4] of Integer;
  end;
  TSRecordArray = array of SRecord;
  
var
  Movement : TSRecordArray;

procedure Example(x,y : integer);
begin
  Writeln(Format('%d, %d', [x, y]));
end;

begin
  SetArrayLength(Movement, 1);
  with Movement[0] do
  begin
    MoveCoordinateX[1] := 1;
    MoveCoordinateY[1] := 3;
    Example(MoveCoordinateX[1], MoveCoordinateY[1]);
  end;
end.

Take a look at that? Show exactly what you have though.

Example() needs to be taken out of the With.

From: Dgby714
Example() needs to be taken out of the With.

Um, no it does not. I know what I am doing..I put it there so that I do not require Movement. in front of all the MoveCoordinateX and such..

I guess with…do instead of the SRecord.Movement[x]. Not entirely sure why, but it compies. Thanks Sex.

From: mrpickle
I guess with…do instead of the SRecord.Movement[x]. Not entirely sure why, but it compies. Thanks Sex.

No you can use that just put Movement instead of SRecord. SRecord is the type while Movement is the variable.