Zachytenie erroru v Pascale

Pilifo

Je možné v Pascale (resp. Free Pascale) zachytiť error a v prípade, že by mal spadnúť program, napr. pri delení 0, by sa vypísalo "Error"?

BX · Príspevok od používateľa BX » 04 feb 2009, 19:41

vsetko sa da cez podmienky, alebo cez typ boolean
Alebo skus toto:

Kód: Vybrať všetko

uese crt;
var x:integer;
    CHYBA:boolean;

begin 
  repeat 
     write('Vlož číslo: '); 
     {$I-} readln(x); {$I+} 
     CHYBA := IOResult <> 0; 
     if CHYBA then writeln('Chyba vstupu!') 
  until not CHYBA; 
  writeln(x);
end.

delenie nulou ti hodí štandartnú výnimku, to pekne (ako aj vela iných chýb) ošetrší pomocou try-except

Kód: Vybrať všetko

begin
   writeln('start');
   a :=  1;
   b :=  a - 1;
   try
     a := 1 div b;
   except
     writeln('Error');
   end;
    writeln('end');
 end.

gwixt

try-catch v pascale?? nebolo to az vysadou delphi???

neviem, toto som vygooglil. Nakoľko je zdroj dôveryhodný ti povedať neviem, lebo som to v pascale nikdy neriešil

Pilifo

Tak skúsil som naprogramovať niečo podobné, ako tam hodil audiotrack, ale Borland Pascal takýto príkaz vôbec nepozná a Free Pascal vypisuje "Identifier not found", pričom však berie tento príkaz ako normálny

Pilifo napísal:Tak skúsil som naprogramovať niečo podobné, ako tam hodil audiotrack, ale Borland Pascal takýto príkaz vôbec nepozná a Free Pascal vypisuje "Identifier not found", pričom však berie tento príkaz ako normálny

a deklaroval si si premenné a a b?

Pilifo

audiotrack napísal:a deklaroval si si premenné a a b?

Samozrejme, ale nešlo.

gwixt

a to co napisal BX nefunguje? ak ma pamat neklame tak takto nejak sa to tam riesilo ...

Pilifo

gwixt napísal:a to co napisal BX nefunguje? ak ma pamat neklame tak takto nejak sa to tam riesilo ...

No to funguje, ale neviem, ako by som to aplikoval na môj prípad - delenie 0

Neviete, ako je tiež možné, že Free Pascal nepozná TRY a EXCEPT?

BX · Príspevok od používateľa BX » 05 feb 2009, 19:47

Ucil som sa ze IOResult ma zachytavat chyby pri ktorych by program normalne spadol, tagze som si myslel ze to bude aj v tomto pripade, ale asi nie - prepac

Nechapem len ja ze preco to nerobis pomocou IF

Pilifo napísal:No to funguje, ale neviem, ako by som to aplikoval na môj prípad - delenie 0

Neviete, ako je tiež možné, že Free Pascal nepozná TRY a EXCEPT?

Nič v zlom, ale pri delení nulou nepotrebuješ "špeciálny systém na kontrolu chýb".

(teda ak nejde o delenie ktoré je pri inicializácii Crt knižnice, ale na to sú záplaty)

Free Pascal pozná aj try/except, ale je možné, že to nie je štandardne v kompilátore povolené (zapínalo sa to voľbou "Object Pascal extension on").