| Class TDB2Ascii (unit DBcvt) |
TComponent
****************************************************************************}
| Constructors |
constructor Create(Aowner: Tcomponent);of GetFixedRecord} {******************************************************************************} {
| Functions |
procedure Execute;
procedure StopExecute;
procedure AbortTransfer(Sender: TObject);
procedure SetAsciiFile(value: TFileName);
procedure SetEndOfRecord(value: char);| Properties |
property AbortCaption : string
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;
ErrorCode : TDBcvtError;
WrittenCount : LongInt;
FAbortCaption : string;
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 : stringPublished 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;