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

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

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

Большой текстовый файл

vajo © (2002-06-17 14:50:00)
У меня файл 4Гб. Мне надо примерно последние 50 000 строк. По моим подсчетам там строк около 30 000 000. В данной процедуре получаю почему-то только первые 397 858 строк.

procedure TForm1.Button1Click(Sender: TObject);
var
Vf: TextFile;
S:String;
i:=Integer;
begin
i:=1;
AssignFile(Vf, "G:\File.log");
while (not Eof(Vf)) do
begin
Readln(Vf, S);
i:=i+1;
end;
Label1.Caption:=IntToStr(i);
CloseFile(Vf);
end;

Может что-то не так делаю? Очень надо как-то открыть этот файл.

Dizer (2002-06-17 16:59:00) [1]
Попроси ситемного администратора настроить формирование логовских файлов каждые сутки. У меня за месяц до 5 млн. строк. За сутки около 200000 строк.

Nikolay M. (2002-06-17 16:42:00) [2]
У меня были проблемы с текстовиками, созданными в Unix - там строка заканчивается не #$D#$A, а только #$D (по-моему), поэтому некорректно работала функция Readln. Пришлось писать свою на основе простого Read.

Anatoly Podgoretsky (2002-06-17 15:50:00) [3]
Вмдимо все таки не текстовый или более 4 Гб

Sasha9 (2002-06-17 15:50:00) [4]
может filestream"ом попробовать

Игорь Шевченко (2002-06-17 15:39:00) [5]
SetFilePointer (f, xxxxxx, 2); { от конца }
ReadFile (f, ....)

vajo (2002-06-17 15:22:00) [6]
Текстовый. Там записаны адреса кто куда по интернету ходит. Взяв несколко первых строк - это хорошо видно.

Sasha9 (2002-06-17 14:57:00) [7]
а может это не текстовый файл?

Наверх

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