GraphErrorMsg: Porovnání verzí

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání
(Created page with "Vrací řetězec s chybovým hlášením pro určený ErrorCode. ;Deklarace function GraphErrorMsg(ErrorCode: Integer): string; ;Režim :Reálný, Chráněný ;Viz také :...")
 
m (1 revízia: Unit Graph)
 
(Žádný rozdíl)

Aktuální verze z 4. 10. 2012, 17:01

Vrací řetězec s chybovým hlášením pro určený ErrorCode.

Deklarace
function GraphErrorMsg(ErrorCode: Integer): string;
Režim
Reálný, Chráněný
Viz také
DetectGraph
GraphResult
Chybové kódy grafického režimu
InitGraph


Vzorový příklad

{Grfermsg.PAS}
{Vzorový příklad pro funkci GraphErrorMsg.}
uses Graph;
var
  GraphDriver, GraphMode: Integer;
  ErrorCode: Integer;
begin
  GraphDriver := Detect;
  InitGraph(GraphDriver, GraphMode, ' ');
  ErrorCode := GraphResult;
  if ErrorCode <> grOk then
  begin
    Writeln('Chyba grafiky: ', GraphErrorMsg(ErrorCode));
    Readln;
    Halt(1);
  end;
  Line(0, 0, GetMaxX, GetMaxY);
  Readln;
  CloseGraph;
end.