Скачать: CL | DM;

Чтение Нового Формата Файла 16-бит. INTEGER   Найти похожие ветки 

← →
CussedJohn ©   (2003-04-10 11:24) [0]

Народ!!! Помогите!!! Вопрос следующий: создаю новый тип(через record) файла, и как мне его читать( какие функции, процедуры использовать ), как засунуть в массив ???

---

← →
Ozone ©   (2003-04-10 11:29) [1]

Да очень просто;
var
Turn: array [1..N] of TData {твой record}
F: file of TData;
Index : 1..N;
begin
AssignFile(F,"*.*");
Reset(F);
Index:=1;
while not Eof(F) do begin
readln(F,Turn[Index]);
inc(Index);
end;
closefile(F);
end;

---

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

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.018 c