Правила форума
FileExp.PASЯзык:
Русский
English
{ Пример программы для функции FileExpand }
uses WinDos;
const MyFile : PChar = 'TEST.FIL';
var
Where : PChar;
begin
GetMem(Where, 80);
FileExpand(Where, MyFile);
WriteLn(MyFile, ' создан в текущей директории. Полное имя: ', Where);
end.
const MyFile : PChar = 'TEST.FIL';
var
Where : PChar;
begin
GetMem(Where, 80);
FileExpand(Where, MyFile);
WriteLn(MyFile, ' создан в текущей директории. Полное имя: ', Where);
end.
::
::
::
