From 26eb5df62355ed6e6f00c334d72d52ab3bce99c4 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Wed, 8 Nov 2017 15:58:28 +0100
Subject: fftunit.pas: cleanup

---
 fftunit.pas | 28 +++++++++-------------------
 1 file changed, 9 insertions(+), 19 deletions(-)

diff --git a/fftunit.pas b/fftunit.pas
index fd3e9cb..3044cfe 100644
--- a/fftunit.pas
+++ b/fftunit.pas
@@ -107,30 +107,20 @@ function strToFftDo(out fftDo: tFFTDatenordnung; s: string): boolean;
 var
   bekannteBefehle: tMyStringList;
 begin
-  result:=true;
+  fftDo:=low(tFFTDatenordnung);
   bekannteBefehle:=tMyStringList.create;
-  if istDasBefehl('Realteile:Imaginärteile',s,bekannteBefehle,false) then begin
-    fftDo:=doResIms;
-    bekannteBefehle.free;
-    exit;
-  end;
-  if istDasBefehl('Realteile:Imaginärteile umgedreht',s,bekannteBefehle,false) then begin
-    fftDo:=doResSmi;
-    bekannteBefehle.free;
-    exit;
-  end;
-  if istDasBefehl('Beträge',s,bekannteBefehle,false) then begin
-    fftDo:=doBetr;
-    bekannteBefehle.free;
-    exit;
-  end;
-  if istDasBefehl('Betragsquadrate',s,bekannteBefehle,false) then begin
-    fftDo:=doBetrQdr;
+  repeat
+    if bekannteBefehle.count>0 then inc(fftDo);
+    bekannteBefehle.add(fftDoToStr(fftDo));
+  until (s=bekannteBefehle.last) or (fftDo=high(tFFTDatenordnung));
+  if fftDo<high(tFFTDatenordnung) then begin
     bekannteBefehle.free;
+    result:=true;
     exit;
   end;
+  result:=false;
   bekannteBefehle.sort;
-  gibAus('Kenne Nachbereitungsvariante '''+s+''' nicht bei Erstellung einer FFT!'#10'Ich kenne:'#10+bekannteBefehle.text,3);
+  gibAus('Kenne FFT-Datenordnung '''+s+''' nicht!'#10'Ich kenne:'#10+bekannteBefehle.text,3);
   bekannteBefehle.free;
   result:=false;
 end;
-- 
cgit v1.2.3-70-g09d2