Иллюстрированный самоучитель по Tirbo 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



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];{Полный маршрут поиска файла}


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

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];{Полный маршрут поиска файла}




type

PaletteType = record {Используется в GetPallete}

Size : Byte;

Colors : array [0..MaxColors] of Shortlnt; 

end; 

LineSettingsType = record {Используется в GetLineSettings}

LineStyle Word;

Pattern Word;

Thickness Word; 

end; 

TextSettingsType = record {Используется в GetTextSettings}

Font :Word;

Direction : Word;

CharSize : Word;

Horiz : Word;

Vert : Word; 

end; 

FillSettingsType = record {Используется в GetFillSettings}

Pattern : Word;

Color : Word; 

end;

FillPatternType = array [1..8] of Byte; 

PointType = record {Для задания координат многоугольников}

X,Y: Integer; 

end; 

ViemPortType = record {Используется в GetViewSettings}

X1, Y1, X2, Y2: Integer; 

Clip : Boolean; 

end;

ArcCoordsType = record {Используется в GetArcCoords} 

X, У : Integer; 

Xstart, Ystart: Integer; 

Xend, Yend : Integer;

end;



Содержание раздела