Class TDB2Ascii (unit db2ascii)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

Public declarations

==========================================================================} { Implementation der als public deklarierten Prozeduren und Funktionen } {==========================================================================} {-------------------------------------------------------------------------- Name : TDB2Ascii.



Functions

procedure AppendString(aString: String; var Done: Boolean);

-------------------------------------------------------------------------- Name : TDB2Ascii.

destructor Destroy;

-------------------------------------------------------------------------- Name : TDB2Ascii.

procedure Execute;

-------------------------------------------------------------------------- Name : TDB2Ascii.

procedure ExportData;

==========================================================================} { Implementation der als protected deklarierten Prozeduren und Funktionen } {==========================================================================} {==========================================================================} { Implementation der als privat deklarierten Prozeduren und Funktionen } {==========================================================================} {-------------------------------------------------------------------------- Name : TDB2Ascii.

procedure WriteField( Field : TField; oldChars : String; newChars : String);

-------------------------------------------------------------------------- Name : TDB2Ascii.

procedure WriteHeader( Field : TField; oldChars : String; newChars : String);

-------------------------------------------------------------------------- Name : TDB2Ascii.

Properties

property AfterExport : TNotifyEvent


property BeforeExport : TNotifyEvent


property BeforeFieldWrite : TFieldCheck

Published declarations } {--events----------------------------------------------------------------

property BeforeHeaderClose : TNotifyEvent


property BeforeHeaderFieldWrite : TFieldCheck


property BeforeRecordClose : TNotifyEvent


property Char4Fill : Char


property Char4Quote : Char


property Char4QuoteReplace : Char


property Char4ReturnReplace : Char


property Char4Sep : Char


property Char4SepReplace : Char


property CharSetConversion : TConversion


property CreateHeaders : Boolean


property DataSet : TDataSet

--properties------------------------------------------------------------

property DisableDataSetControls : Boolean


property ExportOnlyVisibleFields : Boolean


property FileName : String


property FileType : TFileType


property InsertSepAfterRecord : Boolean


property InsertSepBeforeRecord : Boolean


property QuoteNonStringFields : Boolean


property QuoteStringFields : Boolean


property ReplaceQuoteInString : Boolean


property ReplaceReturnInString : Boolean


property ReplaceSepInString : Boolean


Events

event OnFieldRead : TFieldCheck


event OnHeaderFieldRead : TFieldCheck


event OnNewRecord : TNotifyEvent


Variables

FAfterExport : TNotifyEvent;


FAsciiOutputFile : TextFile;


FAsciiOutputFileState : TFileState;


FBeforeExport : TNotifyEvent;


FBeforeFieldWrite : TFieldCheck;

Private declarations

FBeforeHeaderClose : TNotifyEvent;


FBeforeHeaderFieldWrite : TFieldCheck;


FBeforeRecordClose : TNotifyEvent;


FChar4Fill : Char;


FChar4Quote : Char;


FChar4QuoteReplace : Char;


FChar4ReturnReplace : Char;


FChar4Sep : Char;


FChar4SepReplace : Char;


FCharSetConversion : TConversion;


FCreateHeaders : Boolean;


FDataSet : TDataSet;


FDisableDataSetControls : Boolean;


FExportOnlyVisibleFields : Boolean;


FFileName : String;


FFileType : TFileType;


FOnFieldRead : TFieldCheck;


FOnHeaderFieldRead : TFieldCheck;


FOnNewRecord : TNotifyEvent;


FQuoteNonString : Boolean;


FQuoteString : Boolean;


FReplaceQuoteInString : Boolean;


FReplaceReturnInString : Boolean;


FReplaceSepInString : Boolean;


FSepAfterRecord : Boolean;


FSepBeforeRecord : Boolean;



Constructors


constructor Create(AOwner: TComponent);

Public declarations

==========================================================================} { Implementation der als public deklarierten Prozeduren und Funktionen } {==========================================================================} {-------------------------------------------------------------------------- Name : TDB2Ascii.Create Typ : Constructor Sprache : Delphi 1.0 Version : 1.0 Datum : 21.10.1995 Autor : Scheffczyk Aufgabe : Erzeugt die Komponente und initialisiert alle Eigenschaften und Ereignishandler Parameter : AOwner: TComponent : Besitzer der Komponente, normalerweise die Form, auf der die Komponente eingesetzt wird Rueckgabe : - Fehler : - Hinweise : Die Eigenschaften 'FChar4ReturnReplace' und 'FChar4Fill' werden mit einem Leerzeichen initialisiert. Der Objektinspektor zeigt Leerzeichen als Wert einer Char-Eigenschaft als '#32' dar, um sie von einem leeren Wert unterscheiden zu koennen ---------------------------------------------------------------------------


Functions


procedure AppendString(aString: String; var Done: Boolean);

-------------------------------------------------------------------------- Name : TDB2Ascii.AppendString Typ : Prozedur Sprache : Delphi 1.0 Version : 1.0 Datum : 05.11.1995 Autor : Scheffczyk Aufgabe : Erlaubt das Einfuegen von Strings waehrend des Exports der Daten Parameter : aString : String : Der einzufuegende String var Done : Boolean : 'true, wenn der String eingefuegt werden konnte, ansonsten 'false' Rueckgabe : - Fehler : - Hinweise : Diese Funktion wird normalerweise in einer UDF aufgerufen, die einem Ereigneis der Komponente zugewiesen wurde. Das Einfuegen ist nur waehrend des Exportes moeglich, d.h. nachdem die Methode 'Execute' aufgerufen wurde ---------------------------------------------------------------------------


destructor Destroy;

-------------------------------------------------------------------------- Name : TDB2Ascii.Destroy Typ : Destructor Sprache : Delphi 1.0 Version : 1.0 Datum : 21.10.1995 Autor : Scheffczyk Aufgabe : Gibt alle bei der Erstellung der Komponente belegten Resourcen wieder frei Parameter : - Rueckgabe : - Fehler : - Hinweise : - ---------------------------------------------------------------------------


procedure Execute;

-------------------------------------------------------------------------- Name : TDB2Ascii.Execute Typ : Prozedur Sprache : Delphi 1.0 Version : 1.0 Datum : 21.10.1995 Autor : Scheffczyk Aufgabe : Der Aufruf dieser Prozedur startet den Export der Daten, wenn ein gueltiges DataSet und ein gueltiger Dateiname fuer die ASCII-Datei angegeben wurde, ansonster werden entsprechende Fehlermeldungen ausgegeben Parameter : - Rueckgabe : - Fehler : - Hinweise : Oeffnet und schliesst die ASCII-Datei und ruft die private Prozedur 'ExportData' auf ---------------------------------------------------------------------------


procedure ExportData;

==========================================================================} { Implementation der als protected deklarierten Prozeduren und Funktionen } {==========================================================================} {==========================================================================} { Implementation der als privat deklarierten Prozeduren und Funktionen } {==========================================================================} {-------------------------------------------------------------------------- Name : TDB2Ascii.ExportData Typ : Prozedur Sprache : Delphi 1.0 Version : 1.0 Datum : 21.10.1995 Autor : Scheffczyk Aufgabe : Durchlaufen des DataSets vom ersten bis zum letzten Datensatz und fuer jeden Datensatz Export aller Felder, deren Eigenschaft 'visible' auf 'true' gesetzt ist. Teilauswertung der Eigenschaften der Komponente Parameter : - Rueckgabe : - Fehler : - Hinweise : - ---------------------------------------------------------------------------


procedure WriteField( Field : TField; oldChars : String; newChars : String);

-------------------------------------------------------------------------- Name : TDB2Ascii.WriteField Typ : Prozedur Sprache : Delphi 1.0 Version : 1.0 Datum : 21.10.1995 Autor : Scheffczyk Aufgabe : Export eines Feldinhaltes in die ASCII-Datei Parameter : Field : TField : Das Feld, dessen Inhalt in die ASCII-Datei geschrieben werden soll oldChars : String : Die in dem Feldinhalt zu erzetzenden Zeichen newChars : String : Die Ersatzzeichen Rueckgabe : - Fehler : - Hinweise : 'oldChars' enthaelt die gewaehlten Separations- und Anfuehrungs- zeichen und 'newChars' die angegebenen Ersatzzeichen wenn die entsprechenden Eigenschaften der Komponente den Austausch an- ordnen ---------------------------------------------------------------------------


procedure WriteHeader( Field : TField; oldChars : String; newChars : String);

-------------------------------------------------------------------------- Name : TDB2Ascii.WriteHeader Typ : Prozedur Sprache : Delphi 1.0 Version : 1.0 Datum : 21.10.1995 Autor : Scheffczyk Aufgabe : Export eines Feldlabels in die ASCII-Datei Parameter : Field : TField : Das Feld, dessen Inhalt in die ASCII-Datei geschrieben werden soll oldChars : String : Die in dem Feldinhalt zu erzetzenden Zeichen newChars : String : Die Ersatzzeichen Rueckgabe : - Fehler : - Hinweise : 'oldChars' enthaelt die gewaehlten Separations- und Anfuehrungs- zeichen und 'newChars' die angegebenen Ersatzzeichen wenn die entsprechenden Eigenschaften der Komponente den Austausch an- ordnen Die Feldlabel werden prinzipiell wie String-Felder behandelt ---------------------------------------------------------------------------


Properties


property AfterExport : TNotifyEvent


property BeforeExport : TNotifyEvent


property BeforeFieldWrite : TFieldCheck

Published declarations } {--events----------------------------------------------------------------


property BeforeHeaderClose : TNotifyEvent


property BeforeHeaderFieldWrite : TFieldCheck


property BeforeRecordClose : TNotifyEvent


property Char4Fill : Char


property Char4Quote : Char


property Char4QuoteReplace : Char


property Char4ReturnReplace : Char


property Char4Sep : Char


property Char4SepReplace : Char


property CharSetConversion : TConversion


property CreateHeaders : Boolean


property DataSet : TDataSet

--properties------------------------------------------------------------


property DisableDataSetControls : Boolean


property ExportOnlyVisibleFields : Boolean


property FileName : String


property FileType : TFileType


property InsertSepAfterRecord : Boolean


property InsertSepBeforeRecord : Boolean


property QuoteNonStringFields : Boolean


property QuoteStringFields : Boolean


property ReplaceQuoteInString : Boolean


property ReplaceReturnInString : Boolean


property ReplaceSepInString : Boolean


Events


event OnFieldRead : TFieldCheck


event OnHeaderFieldRead : TFieldCheck


event OnNewRecord : TNotifyEvent


Variables


FAfterExport : TNotifyEvent;


FAsciiOutputFile : TextFile;


FAsciiOutputFileState : TFileState;


FBeforeExport : TNotifyEvent;


FBeforeFieldWrite : TFieldCheck;

Private declarations


FBeforeHeaderClose : TNotifyEvent;


FBeforeHeaderFieldWrite : TFieldCheck;


FBeforeRecordClose : TNotifyEvent;


FChar4Fill : Char;


FChar4Quote : Char;


FChar4QuoteReplace : Char;


FChar4ReturnReplace : Char;


FChar4Sep : Char;


FChar4SepReplace : Char;


FCharSetConversion : TConversion;


FCreateHeaders : Boolean;


FDataSet : TDataSet;


FDisableDataSetControls : Boolean;


FExportOnlyVisibleFields : Boolean;


FFileName : String;


FFileType : TFileType;


FOnFieldRead : TFieldCheck;


FOnHeaderFieldRead : TFieldCheck;


FOnNewRecord : TNotifyEvent;


FQuoteNonString : Boolean;


FQuoteString : Boolean;


FReplaceQuoteInString : Boolean;


FReplaceReturnInString : Boolean;


FReplaceSepInString : Boolean;


FSepAfterRecord : Boolean;


FSepBeforeRecord : Boolean;