Var f: file;
begin
Assign(f,'\AUTOEXEC.BAT'); { открыть файл }
Reset(f,1);
Writeln('Размер файла = ',FileSize);
Close(f); { закрыть файл }
end.
Процедура CrlEol Модуль WinCrt
─────────────────────────────────────────────────────────────────
Назначение: Стирает все символы, начиная от позиции курсора, до конца строки. Курсор при этом не перемещается.
Описание: ClrEol
Прочее: См. также процедуру ClrScr.
Процедура ClrScr Модуль WinCrt
─────────────────────────────────────────────────────────────────
Назначение: Очищает экран и помещает курсор в верхний левый угол экрана.
Описание: ClrScr
Прочее: См. также процедуру ClrEol.
Функция Concat
─────────────────────────────────────────────────────────────────
Назначение: Выполняет конкатенацию последовательности строк.
Описание: Concat(s1, [s2, ..., sn] ; string)
Тип результата: Строковый (string).
Примечания: Каждый параметр является выражением строкового типа. Результат представляет собой конкатенацию (объединение) всех строковых параметров. Если длина результирующей строки превышает 255 символов, то она усекается до 255 символов. Те же результаты, что и использование функции Concat, позволяет получить операция +:
S := 'ABC' + 'DEF';
Прочее: См. также подпрограммы Copy, Delete, Insert, Pos.
Пример:
var
s : string;
begin
s := Concat('ABC','DEF'); { 'ABCDEF' }
end.
Функция Copy
─────────────────────────────────────────────────────────────────
Назначение: Возвращает для строки подстроку.
Описание: Cоpy(S : string; Indx : integer; Count : integer)
Тип результата: Строковый (string).
Примечания: Параметр S - выражение строкового типа. Параметры Indx и Count являются выражениями целого типа. Функция Соpy возвращает строку, число символов которой соответствует параметру Count и которая начинается с символа строки S, номер которого задан параметром Indx. Если значение параметра Indx превышает длину строки, то возвращается пустая строка. Если параметр Count задает больше символов, чем остается в строке, начиная с символа Indx, то возвращается только остаток строки.
Прочее: См. также подпрограммы Concat, Delete, Insert, Pos.
Пример:
var
s : string;
begin
s := 'ABCDEF';
s := Copy(s,2,3) { 'BCD' }
end.
Функция Cos
─────────────────────────────────────────────────────────────────
Назначение: Возвращает косинус аргумента.
Описание: Cos(x : real)
Тип результата: Вещественный (real).
Примечания: Параметр x является выражением вещественного типа. Результатом будет косинус x. Предполагается, что это значение задает угол в радианах.
Прочее: См. подпрограммы Arctan, Sin.
Пример:
var
r : real;
begin
r := Cos(Pi);
end.
Функция CreateDir Модуль WinDos
─────────────────────────────────────────────────────────────────
Назначение: Создает новый подкаталог.
Описание: CreateDir(Dir: PChar)
Примечания: Создаваемый подкаталог задается параметром Dir. Возможные ошибки можно получить с помощью переменной DosError. Те же функции, что и CreateDir, выполняет функция MkDir, но воспринимает в качестве аргумента обычную строку Паскаля, а не строку с завершающим нулем.
Прочее: См. также GetCurDir, SetCurDir, RemoveDir.
Функция CSeg
─────────────────────────────────────────────────────────────────
Назначение: Возвращает текущее значение регистра СS.
Описание: CSeg
Тип результата: Результат имеет длину в слово (word).
Примечания: Результат длиной в слово представляет собой адрес сегмента для той части программы, из которой была вызвана функция СSeg.
Прочее: См. также функции DSeg, SSeg.
Процедура CursorTo Модуль WinCrt
─────────────────────────────────────────────────────────────────
Назначение: Перемещает курсор в точку на виртуальном экране с заданными координатами.
Описание: Cursor(X, Y: Integer)
Примечания: Левый верхний угол экрана имеет координаты (0,0). Переменная Cursor устанавливается в значение (X,Y).
Процедура Dec
─────────────────────────────────────────────────────────────────
Назначение: Уменьшает значение переменной.
Описание: Dec(x[ , n])
Примечания: Параметр x представляет собой переменную перечислимого типа, а n - целочисленное выражение. Значение x уменьшается на 1 (или на n в случае явного задания n). То есть Dес(x) соответствует x := x-1, а Dес(x,n) соответствует x := x-n. Функция Dес порождает оптимизированный код и особенно полезна в больших циклах.
Прочее: См. также функции Inc, Pred, Succ.
Пример:
var