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.