Система программирования Turbo Pascal



                

Типы



Типы


type

{Типизированные и нетипизированные файлы} 

FileRec = record 

Handle : Word; 

Mode : Word; 

RecSize : Word;

Private : array [1..6] of Byte; 

UserData : array [1..16] of Byte;

Name : array [0..79] of Char;

end ;

{Текстовые файлы} 

TextBuf = array [0..127] of Char;

TextRec = record

Handle

Word;

Mode

Word;

BufSize

Word;

Private

Word;

BufPos

Word;

BufEnd

Word;

BufPtr

TextBuf ;

OpenFunc

Pointer;

InOutFunc

Pointer;

FlushFunc

Pointer;

CloseFunc

Pointer;

UserData

array [1..16] of Byte;

Name

array [0..79] of Char;

Buffer

TextBuf ;

end;

 

Registers = record 

case Integer of

0: (AX, BX, CX, DX, BP, SI, DI, DS, ES, Flags: Word);

1: (AL, AH, BL, BH, CL, CH, DL, DH: Byte); 

end;

DataTime = record

Year, Month, Day, Hour, Min, Sec: Integer; 

end;

SearchRec = record

File: array [1..21] of Byte;

Attr: Byte;

Time: Longlnt;

Size: Longlnt;

Name: String [12] ;

end;

DirStr = String [67];{Диск и каталог}

NarneStr = String [8] ;{Имя файла}

ExtStr = String [4];{Расширение файла}

ComStr = String [127] ;{Командная строка}

PathStr = String [79];{Полный маршрут поиска файла}









Содержание  Назад  Вперед