Mes programmes OpenSource
Pour une offre professionnelle, consultez mon site http://www.execute.re.Turbo Pascal - Sources en Turbo Pascal (DOS)
Commodore 64 Rage128 Pong Moteur 3D BSP Tree MIDI Player Ray Tracing Pascal Compiler Try/Except Linux SoundBlaster 16 ZBuffer Game Kit Plasma DOS I/O
Try/Except Gérer les exceptions sous DOS
J'ai trouvé un source (longjump) sympa sur le SWAG. D'après lui, j'ai fait une sorte de Try/Except pour DOS :
Uses Except; Var e:TException; Begin if Try(e) then begin { use raise('message') to stop execution (available in any sub function !) } finnally; {remove "e" from "TryStack" } end else begin {when you use "raise", the program jump here !} writeln('e.message'); end; end.Unité Except disponible.