TRandomGenerator.SaveToFile Method

Result: stored in self (calling object)

CopyTRandomGenerator rnd;
VectorInt iVec;
rnd = TRandomGenerator.Create;
rnd.StreamIndependence = TRngStreamIndependence.rsiLeapfrog;
try
    {
        iVec.Size(1000);
        rnd.StreamCount = 2;
        rnd.Streamsnew double[] {0}.RandomUniformbitsI(iVec);
        rnd.Streamsnew double[] {1}.RandomUniformbitsI(iVec);

        rnd.SaveToFile(@"D:\Test.rnd");
    }
finally
    {
        rnd.Free;
    }

    rnd = TRandomGenerator.Create;

    //load stream count, and individual stream state at the time when they were saved
    rnd.LoadFromFile(@"D:\Test.rnd");
    try
        {
            rnd.Streamsnew double[] {0}.RandomUniformBitsI(iVec);
            rnd.Streamsnew double[] {1}.RandomUniformBitsI(iVec);
        }
    finally
        {
            rnd.Free;
        }