| changeset 81 | d74e0e914b50 |
| parent 80 | 3c3dc6a148ca |
| child 83 | 207c85fbef51 |
| 80:3c3dc6a148ca | 81:d74e0e914b50 |
|---|---|
360 procedure chSetSeed(var s: shortstring); |
360 procedure chSetSeed(var s: shortstring); |
361 begin |
361 begin |
362 if isDeveloperMode then |
362 if isDeveloperMode then |
363 begin |
363 begin |
364 SetRandomParams(s, rndfillstr); |
364 SetRandomParams(s, rndfillstr); |
365 cSeed:= s; |
|
365 InitStepsFlags:= InitStepsFlags or cifRandomize |
366 InitStepsFlags:= InitStepsFlags or cifRandomize |
366 end |
367 end |
367 end; |
368 end; |
368 |
369 |