/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/arrayoffile1.pas
14 строк
325 B
Бондарев Иван
initial commit
14 май 2015, 22:35
14 май 2015, 22:35
e6e67c1
Код
Авторство
О чём код?
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.