changeset 102 | c45643d3fd78 |
parent 95 | 1ef5e2c41115 |
child 110 | 330a2dbacd67 |
101:f568cc72ea8c | 102:c45643d3fd78 |
---|---|
358 |
358 |
359 procedure chSetSeed(var s: shortstring); |
359 procedure chSetSeed(var s: shortstring); |
360 begin |
360 begin |
361 if isDeveloperMode then |
361 if isDeveloperMode then |
362 begin |
362 begin |
363 SetRandomParams(s, rndfillstr); |
363 SetRandomSeed(s); |
364 cSeed:= s; |
364 cSeed:= s; |
365 InitStepsFlags:= InitStepsFlags or cifRandomize |
365 InitStepsFlags:= InitStepsFlags or cifRandomize |
366 end |
366 end |
367 end; |
367 end; |
368 |
368 |