Convert from c++ to Pascal

[SesillaAndromeda]

Hi,

iStream is a record type. I don't create it!

I have another c++ code!!!!!
Then...

C++

struct Stream {
    float *vertices;
    uint verticesCount;
};

Array <Stream> streams;

void flip(const int index, const uint c0, const uint c1){
    
    for (uint i = 0; i < streams[index].verticesCount; i++){
        float *src = streams[index].vertices + i * 2;

        float temp = src[c0];
        src[c0] = src[c1];
        src[c1] = temp;
    }
}

Pascal

  Stream = record
    vertices: array of single;
    verticesCount: longword;
  end;

  streams = array of Stream;

procedure flip(const index: integer; const c0, c1: longword);
var
  i: intger;
begin  
    for i := 0 to streams[index].verticesCount-1 do
    begin
        float *src = streams[index].vertices + i * 2; <-- from this

        float temp = src[c0];
        src[c0] = src[c1];
        src[c1] = temp;
    end;
end;

Thanks
Sesilla

[Dan]

var src: PFloatArray;
var temp: Single;
...
src := PFloatArray(@streams[index].vertices[i * 2]);
temp := src^[c0];
src^[c0] := src^[c1];
src^[c1] := temp;