GraphErrorMsg
Verze z 4. 10. 2012, 17:01, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (1 revízia: Unit Graph)
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
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.