If you want to do the export in Delphi you can try the code at the end of
this message. If yo want to use the DataPump try creating the empty ASCII
file and schema file first and see if you can get comma delimited output.
That works with the BatchMove component but I have not tried it with
DataPump.
procedure dgExportTableDelimited(
DataSet: TDataSet;
AsciiFilePath: String;
Delimiter, Separator: Char);
{Exports a dataset as a delimited text file.
Parameters:
DataSet: The data to be exported.
AsciiFilePath: The text file path and name.
Delimiter: The character placed around non-
numeric field values, usually a
double quotation mark.
Separator: The character placed between
fields, usually a comma.
var
AsciiFile: System.Text;
I: Integer;
LastField: Integer;
begin
Assign(AsciiFile, AsciiFilePath);
Rewrite(AsciiFile);
LastField := DataSet.FieldCount - 1;
while not DataSet.EOF do
begin
for I := 0 to LastField do
begin
{If the field is not numeric write the opening
delimiter character.}
if not (DataSet.Fields[I].DataType in
[ftBCD, ftCurrency, ftFloat, ftInteger, ftSmallInt, ftWord]) then
Write(AsciiFile, Delimiter);
{Write the field value.}
Write(AsciiFile, DataSet.Fields[I].AsString);
{If the field type is not numeric write the
closing delimiter character.}
if not (DataSet.Fields[I].DataType in
[ftBCD, ftCurrency, ftFloat, ftInteger, ftSmallInt, ftWord]) then
Write(AsciiFile, Delimiter);
{If this is not the last field write the
separator character.}
if I < LastField then
Write(AsciiFile, Separator);
end; {for}
{Write the carriage/line feed at the end of
this record.}
Writeln(AsciiFile, '');
DataSet.Next;
end; {while}
System.Close(AsciiFile);
end;
--
Bill
(TeamB cannot answer questions received via email)
