summaryrefslogtreecommitdiff
path: root/epost.lpr
diff options
context:
space:
mode:
Diffstat (limited to 'epost.lpr')
-rw-r--r--epost.lpr11
1 files changed, 11 insertions, 0 deletions
diff --git a/epost.lpr b/epost.lpr
index 010445f..c7e4a4e 100644
--- a/epost.lpr
+++ b/epost.lpr
@@ -483,6 +483,17 @@ begin
aufraeumen;
halt(1);
end;
+ if istDasBefehl('entferne nullte Ordnung in',s,bekannteBefehle,true) then begin
+ i:=findeWerte(s,nil,@wertes,@konturen,false);
+ if i<0 then begin
+ aufraeumen;
+ halt(1);
+ end;
+ if wertes[i].entferneNullteOrdnung(syntaxTest,inf,maxThreads) then
+ continue;
+ aufraeumen;
+ halt(1);
+ end;
if istDasBefehl('extrahiere Einhüllende von',s,bekannteBefehle,true) then begin
i:=findeWerte(s,nil,@wertes,@konturen,false);
if i<0 then begin