GetDriverName: Porovnání verzí

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání
m (1 revízia: Unit Graph)
 
Řádek 33: Řádek 33:
 
  end.
 
  end.
 
[[Category:Graph]]
 
[[Category:Graph]]
[[Category:Procedúry Graph]]
+
[[Category:Funkce Graph]]

Aktuální verze z 4. 10. 2012, 18:15

Vrací řetězec obsahující jméno aktuálního driveru.

Deklarace
function GetDriverName: string;
Režim
Reálný, Chráněný
Poznámky
GetDriverName vrátí po zavolání InitGraph jméno aktivního driveru.
Omezení
Je nutno být v grafickém režimu.
Viz také
InitGraph


Vzorový příklad

{Getdrvnm.PAS}
{Vzorový příklad pro funkci GetDriverName.}
uses Graph;
var Driver, Mode: Integer;
begin
  Driver := Detect;   { Přepnutí do grafického režimu }
  InitGraph(Driver, Mode, ' ');
  if GraphResult < 0 then
    Halt(1);
  OutText('Using driver ' + GetDriverName);
  Readln;
  CloseGraph;
end.