Форум: "Основная";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];
ВнизЧтение Нового Формата Файла 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 вся ветка
Форум: "Основная";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c