TRandomGenerator.SaveToFile Method

Result: stored in self (calling object)

Copyvar rnd: TRandomGenerator;
    iVec: VectorInt;
begin
    rnd := TRandomGenerator.Create;
    rnd.StreamIndependence := TRngStreamIndependence.rsiLeapfrog;
    try
        iVec.Size(1000);
        rnd.StreamCount := 2;
        rnd.Streams[0].RandomUniformbitsI(iVec);
        rnd.Streams[1].RandomUniformbitsI(iVec);

        rnd.SaveToFile('D:\Test.rnd');
    finally
        rnd.Free;
    end;

    rnd := TRandomGenerator.Create;

    //load stream count, and individual stream state at the time when they were saved
    rnd.LoadFromFile('D:\Test.rnd');
    try
        rnd.Streams[0].RandomUniformBitsI(iVec);
        rnd.Streams[1].RandomUniformBitsI(iVec);
    finally
        rnd.Free;
    end;
end;