diff options
| -rw-r--r-- | lowlevelunit.pas | 20 |
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 |