TplTextDataRecord

type TplTextDataRecord = class

protected

  function GetField();

  function GetFieldCount;

  function GetFieldByName();

  function GetFieldList;

  function GetValues;

  procedure SetField();

  procedure SetFieldByName();

  procedure SetQuoteAlways();

  procedure SetQuoteIfSpaces();

  procedure SetSchema();

public

  constructor Create;

  destructor Destroy; override;

  procedure BuildRecord(); virtual;

  function GetRecord;

  procedure DoQuote(); virtual;

  procedure FillRecordFromArray();

  procedure FillRecordFromList();

  procedure FillRecordFromValues();

  procedure MakeEmpty; virtual;

  property AsString: string; [r]

  property FieldByName []: string; [rw]

  property FieldCount: Integer; [r]

  property FieldList: TStrings; [r]

  property Fields []: string; [rw]

  property QuoteAlways: Boolean; [rw]

  property QuoteIfSpaces: Boolean; [rw]

  property Schema: TplTextDataSchema; [rw]

  property Values: TStrings; [r]

  property OnQuoteField: TplOnQuoteFieldEvent; [rw]

end;

TplTextDataRecord

TObject