stylistische Aufhübschung in lowlevelunit.pas

1 files changed, 7 insertions, 13 deletions

diff --git a/lowlevelunit.pas b/lowlevelunit.pas
index 8517ee1..52786db 100644
--- a/lowlevelunit.pas
+++ b/lowlevelunit.pas
@@ -342,10 +342,8 @@ begin
     gSingle: result:=sizeof(single);
     gDouble: result:=sizeof(double);
     gExtended: result:=sizeof(extended);
-    else begin
-      gibAus('Unbekannter Genauigkeitstyp!',3);
-      raise exception.create('Unbekannter Genauigkeitstyp!');
-    end;
+    else
+      fehler('Unbekannter Genauigkeitstyp!');
   end;
 end;
 
@@ -561,10 +559,8 @@ begin
     sleep(100);
   if fileexists(s) then
     deletefile(s)
-  else begin
-    gibAus('Datei '''+s+''' kann nicht gelöscht werden, da sie nicht existiert!',3);
-    raise exception.create('Datei '''+s+''' kann nicht gelöscht werden, da sie nicht existiert!');
-  end;
+  else
+    fehler('Datei '''+s+''' kann nicht gelöscht werden, da sie nicht existiert!');
 end;
 
 procedure raiseAndDumpExceptionCallStack(msg: string);
@@ -791,7 +787,7 @@ begin
       result:='+'+result;
   end
   else if s1=s2 then result:=s1
-  else raise exception.create('Ich kann '''+s1+''' und '''+s2+''' nicht zusammenfassen!');
+  else fehler('Ich kann '''+s1+''' und '''+s2+''' nicht zusammenfassen!');
 end;
 
 function intervallAusrollen(s: string): string;
@@ -923,10 +919,8 @@ begin
     ar[wert+offset]:=i;
   end;
   for i:=0 to len-1 do
-    if ar[i+offset]=-1 then begin
-      writeln(stderr,'permutation: '+inttostr(i)+' wurde nicht verteilt!');
-      raise exception.create('permutation: '+inttostr(i)+' wurde nicht verteilt!');
-    end;
+    if ar[i+offset]=-1 then
+      fehler('permutation: '+inttostr(i)+' wurde nicht verteilt!');
 end;
 
 var