TRandomGenerator.LoadFromFile 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  //continue where we left of:...
    rnd.Streamsnew double[] {0}.RandomUniformbitsI(iVec);
    rnd.Streamsnew double[] {1}.RandomUniformbitsI(iVec);
}
finally
    {
        rnd.Free;