| Class TDB2Ascii (unit db2ascii) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);==========================================================================} { Implementation der als public deklarierten Prozeduren und Funktionen } {==========================================================================} {-------------------------------------------------------------------------- Name : TDB2Ascii.
| Functions |
procedure AppendString(aString: String; var Done: Boolean);
destructor Destroy;
procedure Execute;
procedure ExportData;
procedure WriteField( Field : TField;
oldChars : String;
newChars : String);
procedure WriteHeader( Field : TField;
oldChars : String;
newChars : String);| Properties |
property AfterExport : TNotifyEvent
property BeforeExport : TNotifyEvent
property BeforeFieldWrite : TFieldCheck
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
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;
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 : TFieldCheckPublished 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;