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;