diff options
| -rw-r--r-- | Physikunit.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Physikunit.pas b/Physikunit.pas index e72c48a..680419b 100644 --- a/Physikunit.pas +++ b/Physikunit.pas @@ -559,7 +559,7 @@ begin if sT>=nNum then naechsterZykel; - assignFile(datei,pre+'-'+inttostr(nNum-1)+'-'+inttostr(tCnt)+suf); + assignFile(datei,pre+'-'+inttostr(nNum-1)+'-'+myinttostr(tCnt,ceil(ln(zeitAnz)/ln(10)),'0')+suf); rewrite(datei,1); inc(tCnt); |