TTextReader

type TTextReader = class

strict private

  fCh: Char;

  fContent: string;

  fEOF: Boolean;

  fName: string;

  fPos: Integer;

  procedure SetContent();

  procedure SetPos();

public

  constructor CreateFile();

  constructor CreateString();

  procedure DecodePos();

  function EatChars();

  function Find();

  function GetLine;

  function GetRow;

  procedure MoveNext;

  function NextChars();

  procedure Seek();

  property Ch: Char; [r]

  property Content: string; [r]

  property EOF: Boolean; [r]

  property Name: string; [r]

  property Pos: Integer; [r]

end;

TTextReader

TObject