Firebird: Dump eines einzelnen Datensatzes

[Opa Knack]

Nachtrag:

Falls es mal jemand brauchen sollte, möchte ich das Ergebnis meines Tests nicht vorenthalten. Bisher klappt alles wie gewünscht, die Daten übertrage ich vom Ergebnis einer Query ("DBQuery") mit folgendem Code ins ClientDataSet ("table"):

Delphi-Quellcode:

for i := 0 to DBQuery.FieldCount - 1 do
begin
  with table.FieldDefs.AddFieldDef do
  begin
    DataType := DBQuery.FieldDefs[i].DataType;
    Name := DBQuery.FieldDefs[i].Name;
  end;
end;

table.CreateDataSet;
table.Append;

for i := 0 to DBQuery.FieldCount - 1 do table.Fields[i].Value := DBQuery.Fields[i].Value;