TplAnsiTextStream

type TplAnsiTextStream = class(TplBufferedStream)

protected

  function atsGetLineCount;

  procedure atsSetLineTerm();

  procedure atsSetLineEndCh();

  procedure atsSetLineLen();

  procedure atsGetLine();

  procedure atsResetLineIndex;

  procedure bsInitForNewStream; override;

public

  constructor Create();

  destructor Destroy; override;

  function AtEndOfStream;

  function ReadLine;

  function ReadLineArray();

  function ReadLineZ();

  function SeekNearestLine();

  function SeekLine();

  procedure WriteLine();

  procedure WriteLineArray();

  procedure WriteLineZ();

  property FixedLineLength: Integer; [rw]

  property LineCount: LongInt; [r]

  property LineTermChar: ansichar; [rw]

  property LineTerminator: TplLineTerminator; [rw]

end;

TplAnsiTextStream

TplBufferedStream

TObject