1 578
editací
Změny
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é :..."
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.
[[Category:Graph]]
[[Category:Funkce Graph]]
;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.
[[Category:Graph]]
[[Category:Funkce Graph]]