Читать строку с помощью TFileStream delphi

Вы можете открыть файл для чтения с помощью класса TFileStream вот так ...

FileStream := TFileStream.Create( 'MyBigTextFile.txt', fmOpenRead)

TFileStream не является объектом с подсчетом ссылок, поэтому обязательно отпустите его, когда закончите, например ...

FileStream.Free

С этого момента я буду предполагать, что кодировка символов вашего файла - UTF-8, а завершение конца строки - в стиле MS. В противном случае внесите соответствующие изменения или обновите свой вопрос.

Вы можете прочитать одну кодовую единицу символа UTF-8 (это не то же самое, что чтение одного символа) следующим образом:

var ch: ansichar;
FileStream.ReadBuffer( ch, 1);

Вы можете прочитать такую ​​строку текста ...

function ReadLine( var Stream: TStream; var Line: string): boolean;
var
  RawLine: UTF8String;
  ch: AnsiChar;
begin
result := False;
ch := #0;
while (Stream.Read( ch, 1) = 1) and (ch <> #13) do
  begin
  result := True;
  RawLine := RawLine + ch
  end;
Line := RawLine;
if ch = #13 then
  begin
  result := True;
  if (Stream.Read( ch, 1) = 1) and (ch <> #10) then
    Stream.Seek(-1, soCurrent) // unread it if not LF character.
  end
end;

Чтобы прочитать строки 2, 3 и 4, предполагая, что позиция находится в 0 ...

ReadLine( Stream, Line1);
ReadLine( Stream, Line2);
ReadLine( Stream, Line3);
ReadLine( Stream, Line4);

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

Blockread, BlockWrite, Seek - ключевые слова, на которые вы можете обратить внимание.

Образец страницы для BlockRead

Образец страницы для поиска

Предложение Шона работает медленно из-за TFileStream.Read, как объяснил Дэвид. Но если вы используете TMemoryStream вместо TFileStream, медленный Stream.Read не так важен. В таком случае большую часть времени занимают строковые операции.

Если немного изменить код, скорость будет примерно в 2 раза выше:

function ReadLine(Stream: TStream; var Line: string): boolean;
var
  ch: AnsiChar;
  StartPos, LineLen: integer;
begin
  result := False;
  StartPos := Stream.Position;
  ch := #0;
  while (Stream.Read( ch, 1) = 1) and (ch <> #13) do;
  LineLen := Stream.Position - StartPos;
  Stream.Position := StartPos;
  SetString(Line, NIL, LineLen);
  Stream.ReadBuffer(Line[1], LineLen);
  if ch = #13 then
    begin
    result := True;
    if (Stream.Read( ch, 1) = 1) and (ch <> #10) then
      Stream.Seek(-1, soCurrent) // unread it if not LF character.
    end
end;