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

← →
Semion (2002-10-25 08:33) [0]

Подскажите как мне производить чтение и запись в фай свыше 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
подскажите как мне сделать чтобы он проводил полную обработку или хотябы подскажите другой способ.

← →
MBo (2002-10-25 08:35) [1]

Чудеса говоришь. Файл-то текстовый?

← →
Opuhshii (2002-10-25 08:35) [2]

а что вы в него пишите,.. почитайте о textfile.
вообще,. для таких вещей лучще использовать TFileStream или WriteFile/ReadFile

← →
VaS (2002-10-25 09:05) [3]

Нет, TFileStream не подходит (не разбирался, в чем там проблема у борланда, но на больших файлах все просто умирает). А вот WriteFile/ReadFile - самое то.

← →
Anatoly Podgoretsky (2002-10-25 09:07) [4]

Судя по всему дело не в Борланде

← →
Bis (2002-10-25 09:52) [5]

судя по всему, в оригинале стоит признак конца файла.
лучше уж тогда цикл поставить от 1 до размера файла, раз все равно посимвольно идет

← →
VaS (2002-10-25 10:18) [6]

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

← →
MBo (2002-10-25 10:22) [7]

>через TFileStream 20М файл строками PChar по 100 байт
Нет проблем.

← →
Anatoly Podgoretsky (2002-10-25 10:34) [8]

Всеми путями писал и разными размерами, проблем нет, у тебя входной явно не текстовый файл, встречается преждевременный символ конца файла

← →
VaS (2002-10-25 11:12) [9]

Удалено модератором

Чтение и запись в файл Найти похожие ветки