Einzelnen Beitrag anzeigen

merlin17

Registriert seit: 15. Dez 2002
Ort: Mittelfranken
980 Beiträge
 
Delphi 10 Seattle Enterprise
 
#19

Re: BDE Paradox db-Datei in eine CSV Datei exportieren

  Alt 25. Feb 2005, 13:18
mann, ist das lange her mit BDE und Paradox;
aber reizvoll war das Thema für die Mittagspause
(und am wochenende will ich es mal in C# probieren... )
)
-> incl. "CSV-Header" sprich db-felder....
ich nehme immer das '{' zeichen, ist in datenbank eher selten anzutreffen; ggf. ändern!

thomas

__________________________________________________ _________
Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i, j: integer;
  s: string;
  theStringList: Tstringlist;
begin
  if Query1.State = dsInactive then
    showmessage('Bitte erst "Suche starten" durchführen')
  else
    begin
      Query1.disablecontrols;
      s := '';
      Query1.First;
      theStringList := TStringList.Create;
      with Query1 do
        begin
          s := '';
          for I := 1 to Query1.FieldList.Count - 1 do
            begin
              s := s + Query1.FieldList.Strings[I] + '{';
            end;
          theStringList.add(s);

          for j := 0 to (RecordCount - 1) do
            begin
              s := '';
              for i := 1 to (FieldCount - 1) do
                begin
                  if Length(Fields[i].AsString) < 1 then
                    s := s + ' ' + '{'
                  else
                    s := s + (Fields[i].AsString) + '{';
                end;
              theStringList.add(s);
              Next;
            end;
          Query1.enablecontrols;

          SaveDialog1.Title := 'Speichert die CSV in einen File';
          if SaveDialog1.Execute then
            theStringList.savetofile(SaveDialog1.Filename);
        end;
    end;
end;
- TeamNevrona cannot respond to questions received via email -
http://rave-notes.blogspot.com
  Mit Zitat antworten Zitat