Чтение Нового Формата Файла 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;

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