BlueGreycalmElegant

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → /programs/develop/fp/rtl/sysdir.inc @ 615

  → /programs/develop/fp/rtl/sysdir.inc @ 616

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Regard whitespace Rev 615 → Rev 616

/programs/develop/fp/rtl/sysdir.inc
0,0 → 1,35
{TODO}
procedure mkdir(const s: String); [IOCHECK];
begin
InOutRes := 211;
end;
procedure rmdir(const s: String); [IOCHECK];
begin
InOutRes := 211;
end;
procedure chdir(const s: String); [IOCHECK];
var
Path: array[Byte] of Char;
begin
Path := s;
kos_setdir(Path);
InOutRes := 0;
end;
procedure getdir(DriveNr: Byte; var Dir: ShortString);
{ DriveNr ­¥ ¨á¯®«ì§ã¥âáï, ­® ¢á¥£¤  ¤®«¦¥­ ¡ëâì à ¢¥­ 0 }
var
Path: array[Byte] of Char;
Size: Longword;
begin
if DriveNr <> 0 then
InOutRes := 15 { Invalid drive number (­¥¯à ¢¨«ì­ë© ­®¬¥à ãáâனá⢠) } else
begin
Size := kos_getdir(@Path, SizeOf(Path));
Dir := StrPas(Path);
InOutRes := 0;
end;
end;