15 lines
346 B
ObjectPascal
15 lines
346 B
ObjectPascal
|
unit u_arrayoffile1;
|
||
|
|
type TFile = file of real;
|
||
|
|
TFileArray = array[1..3] of file of integer;
|
||
|
|
TDynFileArray = array of file of real;
|
||
|
|
|
||
|
|
var arr : TFileArray;
|
||
|
|
darr : TDynFileArray;
|
||
|
|
|
||
|
|
begin
|
||
|
|
Assign(arr[1],'test.dat');
|
||
|
|
SetLength(darr,3);
|
||
|
|
Assign(darr[0],'test3.dat');
|
||
|
|
darr := new TFile[3];
|
||
|
|
Assign(darr[1],'test.dat');
|
||
|
|
end.
|