"erzeuge Dummy-Werte" kann jetzt auch befüllen

1 files changed, 3 insertions, 0 deletions

diff --git a/epost.lpr b/epost.lpr
index 79eb06f..cd940cf 100644
--- a/epost.lpr
+++ b/epost.lpr
@@ -151,6 +151,7 @@ begin
         continue;
       end;
       if istDasBefehl('erzeuge Dummy-Werte',s,bekannteBefehle,true) then begin
+        b:=startetMit('gefüllt',s);
         i:=findeWerte(s,inf,@wertes,@konturen,true);
         if i<0 then begin
           aufraeumen;
@@ -159,6 +160,8 @@ begin
         wertes[i].free;
         wertes[i]:=tWerte.create(@konturen,@wertes);
         wertes[i].bezeichner:=s;
+        if b then
+          wertes[i].fuelleMitDummys(syntaxtest);
         continue;
       end;
       if istDasBefehl('Daten einlesen',s,bekannteBefehle,true) then begin