New . .
Var
F: Field;
Z: ZipField;
FP: FieldPtr;
ZP: ZipFieldPtr;
F Fiel d, Z - ZipField. , New FP ZP, FP Field, ZP - ZipField.
, . :
Var
S: StrField;
Begin
S.Init (1, 1, 25, ' ');
S.Put ('Ah'yr');
S.Display;
...
S.Done;
End;
S.Init , S.Display .
: .
, . :
Var
Comment: array [1..5] of StrField;
I: integer;
Begin
for I:= 1 to 5 do
Comment [I].Init (1, I + 10, 40, '_');
...
for I:= 1 to 5 do
Comment [I].Done;
End;
, , , - , New Dispose. :
Var
SP: StrFieldPtr;
Begin
New (SP, Init (1, 1, 25, '_');
SP^.Put ('Ah'yr');
SP^.Display;
...
Dispose (SP, Done);
End;
, () .
, ZipFieldPtr ZipFieldPtr, NumFieldPtr FieldPtr, FieldPtr nil, Field, NumField ZipField, Field .
- . , Field.Copy Field, StrField, NumField, ZipField Field .
() , . , "" , "" .
|
|
( ) , . , F.Init FP.Init Field.Init, F FP Field.
( ) . , FP.Edit Field.Edit, StrField.Edit ZipField.Edit, , FP.
, , . ( ), FP.Edit, , , , Field . , , .
:
, , . (: Turbo Pascal -- . .; (. . . 5))