Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Чтение и запись в файл

Semion © (2002-10-25 08:33:00)
Подскажите как мне производить чтение и запись в фай свыше 300кб с использованием
f1,f2:textfile;
filename,filename2,s:string;

assignfile(f,filename);
assignfile(f2,filename2);

reset(f);
rewrite(f2);
while not(eof(f)) do begin
read(f,s);
{if я здесь произвожу оброботку символа}
write(f2,s);
end;

вот так обработку он производит только до 80кб и думает что eof=true
подскажите как мне сделать чтобы он проводил полную обработку или хотябы подскажите другой способ.

VaS (2002-10-25 11:12:00) [1]
Удалено модератором

Anatoly Podgoretsky (2002-10-25 10:34:00) [2]
Всеми путями писал и разными размерами, проблем нет, у тебя входной явно не текстовый файл, встречается преждевременный символ конца файла

MBo (2002-10-25 10:22:00) [3]
>через TFileStream 20М файл строками PChar по 100 байт
Нет проблем.

VaS (2002-10-25 10:18:00) [4]
Anatoly Podgoretsky :))) Ценю Ваш юмор, но попробуйте записать через TFileStream 20М файл строками PChar по 100 байт. А потом то же самое - через WriteFile(). Вопрос "а почему бы не писать кусками по 10кбайт?" не принимается.

Bis (2002-10-25 09:52:00) [5]
судя по всему, в оригинале стоит признак конца файла.
лучше уж тогда цикл поставить от 1 до размера файла, раз все равно посимвольно идет

Anatoly Podgoretsky (2002-10-25 09:07:00) [6]
Судя по всему дело не в Борланде

VaS (2002-10-25 09:05:00) [7]
Нет, TFileStream не подходит (не разбирался, в чем там проблема у борланда, но на больших файлах все просто умирает). А вот WriteFile/ReadFile - самое то.

MBo (2002-10-25 08:35:00) [8]
Чудеса говоришь. Файл-то текстовый?

Opuhshii (2002-10-25 08:35:00) [9]
а что вы в него пишите,.. почитайте о textfile.
вообще,. для таких вещей лучще использовать TFileStream или WriteFile/ReadFile

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »