GetDir: Porovnání verzí
Skočit na navigaci
Skočit na vyhledávání
m (1 revízia: Unit System) |
|||
| (Není zobrazena jedna mezilehlá verze od stejného uživatele.) | |||
| Řádek 6: | Řádek 6: | ||
kde D je: | kde D je: | ||
{| class="wikitable" | {| class="wikitable" | ||
| − | + | | width=10% | 0 || Aktuální jednotka | |
|----------------------- | |----------------------- | ||
| 1 || Mechanika A | | 1 || Mechanika A | ||
| Řádek 47: | Řádek 47: | ||
[[Category:System]] | [[Category:System]] | ||
[[Category:Procedúry System]] | [[Category:Procedúry System]] | ||
| + | [[Category:Vstupně/výstupní procedury a funkce]] | ||
Aktuální verze z 4. 1. 2014, 00:07
Vrací aktuální adresář určené diskové jednotky.
- Deklarace
procedure GetDir(D: Byte; var S: String);
kde D je:
| 0 | Aktuální jednotka |
| 1 | Mechanika A |
| 2 | Mechanika B |
| 3 | Disk C |
atd.
- Režim
- Windows, Reálný, Chráněný
- Poznámky
- Neprovádí žádnou kontrolu chyb. Jestliže jednotka určená parametrem D je neplatná, S vrátí X:\, jako by šlo o hlavní adresář této neplatné jednotky.
- GetCurDir vykonává stejnou funkci jako GetDir, ale místo řetězce pascalského stylu používá jako argument nulou zakončené řetězce.
- Viz také
- ChDir
Vzorový příklad
{GetDir.PAS}
{Vzorový příklad pro proceduru GetDir.}
{ Pro Windows: }
{ uses WinCrt; }
var
s : String;
begin
GetDir(0,s); { 0 = aktuálni disk }
Writeln('Aktuální disk a adresář: ', s);
end.
