DB-Tabelle als Text mit Tab getrennt ausgeben.

[ickehausen]

Tach auch,

ich möchte gern Daten aus zwei Interbase-Tabellen in eine Textdatei aus geben, in der die Datenfelder durch Tabs getrennt sind. Am Ende einse Datensatzes wird durch WriteLn ein Zeilenumbruch erzeugt. Z. Zt. versuche ich es mit dieser Routine:

Delphi-Quellcode:

.
.
DMMain.IBDataSetVeranstaltung.First;
while not DMMain.IBDataSetVeranstaltung.Eof do begin
  DatenExp := '';
  DatenExp := DatenExp + DMMain.IBDataSetVeranstaltung.FieldByName('PreisVon').AsString + #9;
  DatenExp := DatenExp + DMMain.IBDataSetVeranstaltung.FieldByName('PreisBis').AsString + #9;
  .
  .
  .
  DatenExp := DatenExp + DMMain.IBDataSetVeranstaltung.FieldByName('EPreisVon').AsString + #9;
  DatenExp := DatenExp + DMMain.IBDataSetVeranstaltung.FieldByName('EPreisBis').AsString + #9;
  OrtID :=  DMMain.IBDataSetVeranstaltung.FieldByName('VeranstaltungsortID').AsString;
  if OrtID <> '' then
  begin
    DMMain.IBDataSetOrt.Active := false;
    DMMain.IBDataSetOrt.SelectSQL.Clear;
    DMMain.IBDataSetOrt.SelectSQL.Text := 'select a.VPLZ, a.VOrt, a.VPlatz, a.VHaltestelle from Veranstaltungsort a join Veranstaltung b on a.VeranstaltungsortID = ' + QuotedStr(OrtID);
    DMMain.IBDataSetOrt.Active := true;
    DMMain.IBDataSetOrt.Open;
    DatenExp := DatenExp + DMMain.IBDataSetOrt.FieldByName('VPLZ').AsString + #9;
    DatenExp := DatenExp + DMMain.IBDataSetOrt.FieldByName('VOrt').AsString + #9;
    DatenExp := DatenExp + DMMain.IBDataSetOrt.FieldByName('VPlatz').AsString + #9;
    DatenExp := DatenExp + DMMain.IBDataSetOrt.FieldByName('VHaltestelle').AsString;
  end
  else
  DatenExp := DatenExp + #9 + #9 + #9  ;
  DMMain.IBDataSetVeranstaltung.Next;
  WriteLn(f, DatenExp);
end;

Bei ca. 20 Feldern pro Datensatz und 700 Datensätzen benötigt die Routine aber über 2 Minuten dafür. Gibt es hierfür nicht eine andere, schnellere Methode?