Форум: "Основная";
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];

Вниз

Открытие файла и занесение его содержимого в массив.   Найти похожие ветки 

← →
Song   (2002-02-02 19:08) [2]

t:=1;
AssignFile(ff,file_name);
Reset(ff);
While not Eof(ff) Do
Begin
ReadLn(ff,S);
Mas[t]:=S;
Inc(t);
End;
CloseFile(ff);


Mas - массив строк, если нужен бинарный считывай числа или переводи строки в числа.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c