Section courante

A propos

Section administrative du site

GRAPHRESULT

Résultat du graphique
Turbo Pascal 4+ Graph

Syntaxe

Function GraphResult:Integer;

Description

Cette fonction permet de demander le numéro d'erreur.

Remarques

Exemple

L'exemple suivant permet d'utiliser la fonction GraphResult pour connaître le résultat de l'initialisation :

  1. Program GraphResultSamples1;
  2.  
  3. Uses Graph;
  4.  
  5. Var
  6.  ErrorCode:Integer;
  7.  GrDriver,GrMode:Integer;
  8.  
  9. BEGIN
  10.  GrDriver:=Detect;
  11.  InitGraph(GrDriver,GrMode,' ');
  12.  ErrorCode:=GraphResult;
  13.  If(ErrorCode<>grOk)Then Begin
  14.    Writeln('Erreur graphiques :');
  15.    Writeln(GraphErrorMsg(ErrorCode));
  16.    Writeln('Programme abandonné...');
  17.    Halt(1);
  18.  end;
  19.  ClearDevice;
  20.  Rectangle(0,0,GetMaxX,GetMaxY);
  21.  ReadLn;
  22.  CloseGraph;
  23. END.

Référence

Aide-mémoire de Turbo Pascal versions de 3 à 6, Edition Marabout, De Groote, Virga, 1992, ISBN: 2-501-01833-8, page 240 à 241.

Dernière mise à jour : Dimanche, le 25 janvier 2015