Class TDB2Ascii (unit DBcvt)

Inherits from

TComponent

****************************************************************************}

Constructors


constructor Create(Aowner: Tcomponent);

records written to ascii file

of GetFixedRecord} {******************************************************************************} {



Functions

procedure Execute;

of create} {

procedure StopExecute;

of setAsciiFile} {

procedure AbortTransfer(Sender: TObject);

of StopExecute} {

procedure SetAsciiFile(value: TFileName);

of setEndOfRecord} {

procedure SetEndOfRecord(value: char);

****************************************************************************}

Properties

property AbortCaption : string

Published declarations

property AlwaysQuote : boolean


property AsciiFile : TFileName


property Delimiter : char


property EndOfRecord : char


property NotifyCount : LongInt


property Separator : char


property ShowCaption : string


property ShowDlg : boolean


property Source : TTable


Events

event OnNotifyCount : TNotifyEvent


Variables

Busy : boolean;

Public declarations

ErrorCode : TDBcvtError;

busy

WrittenCount : LongInt;

cause of failure

FAbortCaption : string;

Private declarations

FAlwaysQuote : boolean;


FAsciiFile : TFileName;


FDelimiter : char;


FEndOfRecord : char;


FNotifyCount : LongInt;


FOnNotifyCount : TNotifyEvent;


FSeparator : char;


FShowCaption : string;


FShowDlg : boolean;


FSource : TTable;



Constructors


constructor Create(Aowner: Tcomponent);

records written to ascii file

of GetFixedRecord} {******************************************************************************} {


Functions


procedure Execute;

of create} {


procedure StopExecute;

of setAsciiFile} {


procedure AbortTransfer(Sender: TObject);

of StopExecute} {


procedure SetAsciiFile(value: TFileName);

of setEndOfRecord} {


procedure SetEndOfRecord(value: char);

****************************************************************************}


Properties


property AbortCaption : string

Published declarations


property AlwaysQuote : boolean


property AsciiFile : TFileName


property Delimiter : char


property EndOfRecord : char


property NotifyCount : LongInt


property Separator : char


property ShowCaption : string


property ShowDlg : boolean


property Source : TTable


Events


event OnNotifyCount : TNotifyEvent


Variables


Busy : boolean;

Public declarations


ErrorCode : TDBcvtError;

busy


WrittenCount : LongInt;

cause of failure


FAbortCaption : string;

Private declarations


FAlwaysQuote : boolean;


FAsciiFile : TFileName;


FDelimiter : char;


FEndOfRecord : char;


FNotifyCount : LongInt;


FOnNotifyCount : TNotifyEvent;


FSeparator : char;


FShowCaption : string;


FShowDlg : boolean;


FSource : TTable;