TplTextDataSchema

type TplTextDataSchema = class

protected

  function GetCaptions;

  function GetField();

  function GetFieldByName();

  function GetFieldCount;

  function GetSchema;

  procedure SetCommentDelimiter();

  procedure SetField();

  procedure SetFieldByName();

  procedure SetFieldDelimiter();

  procedure SetLayoutType();

  procedure SetQuoteDelimiter();

  procedure SetFixedSeparator();

  procedure SetSchema();

  procedure SetSchemaName();

public

  constructor Create;

  destructor Destroy; override;

  procedure Assign();

  procedure AddField();

  function IndexOf();

  procedure RemoveField();

  procedure Update();

  procedure ClearFields;

  procedure BuildSchema();

  procedure LoadFromFile();

  procedure LoadFromStream();

  procedure SaveToFile();

  procedure SaveToStream();

  property Captions: TStrings; [r]

  property CommentDelimiter: char; [rw]

  property FieldByName []: TplDataField; [rw]

  property FieldCount: Integer; [r]

  property FieldDelimiter: char; [rw]

  property Fields []: TplDataField; default; [rw]

  property LayoutType: TplSchemaLayoutType; [rw]

  property LineTermChar: char; [rw]

  property LineTerminator: TplLineTerminator; [rw]

  property QuoteDelimiter: char; [rw]

  property FixedSeparator: char; [rw]

  property Schema: TStrings; [rw]

  property SchemaName: string; [rw]

end;

TplTextDataSchema

TObject