fftunit.pas: cleanup

1 files 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;