Código Delphi [-] try GoToSleep; except on ENoTengoDinero do try repeat GoToWork; until TengoDinero or TengoMuchoSueño; except on EDiaDelProgramador do GoToSleep(IgnoreAllExceptions); end; end;
try GoToSleep; except on ENoTengoDinero do try repeat GoToWork; until TengoDinero or TengoMuchoSueño; except on EDiaDelProgramador do GoToSleep(IgnoreAllExceptions); end; end;