From 34b0a791cc26dd1a6b36fda32b806aeb4d203147 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Fri, 20 Nov 2015 11:19:50 +0100
Subject: Schleifenvariablen haben jetzt feste Anzahl an Stellen

---
 Physikunit.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);
 
-- 
cgit v1.2.3-70-g09d2