TFileStream

[cb251132]

procedure TForm1.Button2Click(Sender: TObject);
var
f:Tstringlist;
begin
randomize;
      f:=Tstringlist.Create;
      f.LoadFromFile('d:\111.txt');
      memo2.Lines.Add(inttostr(RandomRange(1,f.Count))+':'+chr(9)+f[RandomRange(1,f.Count)]);
f.Free;

end;

С помощью данного кода используя счетчик случайных чисел извлекается и выводится произвольная строка из текстового файла. Но данный код не работоспособен в случае, если размер текстового файла составляет 1,3 Gb, так как это влечет переполнение памяти.
Прошу помочь реализовать эту задачу через класс TFileStream.

[NetSpace]

чего-то как-то разбираля с большими файлами, размер которых переваливает за 7-8 Гбайт.
код работает - большие файы определяет, находит и размер их выдаёт без ошибок.
FileNeme = путь+ имя файла.

//----- определение размера большого нетипизированного файла в байтах ----------
function GetFileSizeEx(FileName:string):Int64;
type TFileSizeRec=record case byte of
      0:(FullSize:Int64);
      1:(dwSizeLow,dwSizeHigh:Longword);
end;
var FSize:TFileSizeRec;
    hFile:THandle;
begin
   FSize.FullSize:=0;
   Result:=0;
   hFile:=CreateFile(PChar(FileName),0,0,nil,OPEN_EXISTING,0,0);
   if(hFile<>INVALID_HANDLE_VALUE)then
   begin
      try
         FSize.dwSizeLow:=GetFileSize(hFile,@FSize.dwSizeHigh);
         if(FSize.dwSizeLow=$FFFFFFFF)and(not Win32Check(LongBool(GetLastError)))then
         Result:=0
         else
         Result:=FSize.FullSize;
         finally
         CloseHandle(hFile);
      end;
   end
   else RaiseLastWin32Error;
end;

[cb251132]

Сообщение от NetSpace

чего-то как-то разбираля с большими файлами, размер которых переваливает за 7-8 Гбайт.
код работает - большие файы определяет, находит и размер их выдаёт без ошибок.
FileNeme = путь+ имя файла.

//----- определение размера большого нетипизированного файла в байтах ----------
function GetFileSizeEx(FileName:string):Int64;
type TFileSizeRec=record case byte of
      0:(FullSize:Int64);
      1:(dwSizeLow,dwSizeHigh:Longword);
end;
var FSize:TFileSizeRec;
    hFile:THandle;
begin
   FSize.FullSize:=0;
   Result:=0;
   hFile:=CreateFile(PChar(FileName),0,0,nil,OPEN_EXISTING,0,0);
   if(hFile<>INVALID_HANDLE_VALUE)then
   begin
      try
         FSize.dwSizeLow:=GetFileSize(hFile,@FSize.dwSizeHigh);
         if(FSize.dwSizeLow=$FFFFFFFF)and(not Win32Check(LongBool(GetLastError)))then
         Result:=0
         else
         Result:=FSize.FullSize;
         finally
         CloseHandle(hFile);
      end;
   end
   else RaiseLastWin32Error;
end;

Благодарю за ответ, но вопрос в другом - как из такого громадного текстового файла вытащить всего лишь одну строку, выбранную произвольно с помощью счетчика случайных чисел.

[BLACK_RAIN]

Сообщение от cb251132

Благодарю за ответ, но вопрос в другом

Как-раз недавно сталкивался с такой проблемой. Задаёшь один вопрос, а тебе отвечают на другой. Оффтопят, товарищи.

Сообщение от cb251132

если размер текстового файла составляет 1,3 Gb

что у вас за текстовое файлы такие?

[cb251132]

Сообщение от BLACK_RAIN

что у вас за текстовое файлы такие?

Ничего особенного. Текстовый файл содержит наборы неповторяющихся комбинаций чисел. В каждой строке такая последовательность. Всего таких наборов более 52 млн. единиц. А чтобы вытащить оттуда одну случайным образом выбранную - оказывается непростая задача.

[cb251132]

var
    f : TFileStream;  //объявляем переменную
    i:integer;
    buf : array [0..20] of char;  //буфер для хранения прочитанных данных
begin
    //открываем файл filename.txt для чтения и записи:
    randomize;
    i:=randomrange(1,52000000); // 52000000 - приблизительно столько строк в файле
    f := TFileStream.Create('d:\111.txt', fmOpenRead);
    //перемещаемся на i символов вперед:
              f.Seek(i, soFromBeginning);
    //читаем в буфер 20 символов из установленной позиции:
              f.Read(buf, 20);
              Memo1.Lines.Add(buf); //скопировали эти 20 символов в Memo
    //уничтожаем объект и тем самым закрываем файл:
    f.Free;
end;

Доступа к отдельно взятой строке нет. Поэтому результат совсем не тот. Из строк вырываются их части с неравным количеством символов. Как получить доступ к отдельно взятой строке, наподобие TStringlist?

[evg_m]

вар.1. предварительно обеспечить в файле одинаковый размер ВСЕХ строк.

зная размер строки задать размер буфера
зная размер и номер нужной строки рассчитать позицию.

вар.2. работать с TextFile

for j:=x to n do ReadLn(file, s);

[cb251132]

Сообщение от evg_m

вар.1. предварительно обеспечить в файле одинаковый размер ВСЕХ строк.

Одна строка занимает минимум 17 байт, максимум 26 байт, так как состоит из сочетания символов табуляции служащих разделителем (величина постоянная 8 шт. в любой строке) и сочетаний однозначных, двузначных чисел. Одинаковый размер обеспечить невозможно.

[cb251132]

Сообщение от evg_m

вар.2. работать с TextFile

for j:=x to n do ReadLn(file, s);

К сожалению, да. Но это такой медленный способ, в сравнении с молниеносной обработкой Tfilestream, что просто одно расстройство.

[evg_m]

и сочетаний однозначных, двузначных чисел. Одинаковый размер обеспечить невозможно.

ну почему же. Вполне можно любому числу выделить одинаковое число позиций.
Заполнять незначащие позиции можно как пробелом, так и 0.

9
 9
09

три варианта записи одного и того же числа.

format('%.8d %8d', [n, n*20]); // разный вывод двух чисел НО каждое из которых займет ровно 8 позиций.

кроме того любую строку можно дополнять пробелами ПОСЛЕ вывода всех чисел.

s --строка с числами
spacestr -- строка с пробелами желаемой длины строки вывода
r:=copy(s +spacestr, 1, length(spacestr)); //строка для вывода