Var
f: File;
w: Word;
c: Char;
begin
{Открываем файл}
Assign(f,'SomeFile.dat');
Reset(f,1);
{Читаем данные}
BlockRead(f,@w,SizeOf(Word));
BlockRead(f,@c,SizeOf(Char));
{Переводим курсок чтения/записи в начало файла}
Seek(f,0);
{Пишем данные}
BlockWrite(f,@c,SizeOf(Char));
BlockWrite(f,@w,SizeOf(Word));
{Закрываем файл}
Close(f);
end.
Чтение из файла.
Подскажите пожалуйста как в паскальных прогах читать данные из файлов в разные по типам переменные. И как читать с разных позиций курсора.
Цитата:
Originally posted by alexeyan
Подскажите пожалуйста как в паскальных прогах читать данные из файлов в разные по типам переменные. И как читать с разных позиций курсора.
Подскажите пожалуйста как в паскальных прогах читать данные из файлов в разные по типам переменные. И как читать с разных позиций курсора.
1. Используй нетипизированные файлы (тип: File)
2. Для чтения/записи процедуры BlockRead/BlockWrite
3. Для чтения/записи с любого места в файле используй Seek
Цитата:
Originally posted by Sagittarius
1. Используй нетипизированные файлы (тип: File)
2. Для чтения/записи процедуры BlockRead/BlockWrite
3. Для чтения/записи с любого места в файле используй Seek
1. Используй нетипизированные файлы (тип: File)
2. Для чтения/записи процедуры BlockRead/BlockWrite
3. Для чтения/записи с любого места в файле используй Seek
Можно хоть пример привести.
Цитата:
Originally posted by alexeyan
Можно хоть пример привести.
Можно хоть пример привести.
Можно.
Код: