DBGrid -> CSV

[Luckner]

Hallo Sir Rufo,
habe Deinen Beitrag zum o.g. Problem gefunden und würde diese Routine gerne benutzen. Nun habe ich Probleme mit der Übergabe der Variablen für diese Procedure. Ich rufe die Prcedure aus:
procedure TFrameArtikel.ButtonCsvExportClick(Sender: TObject);
var FileName : string;
begin
FileName := 'C:\temp\Artikel.csv';
procedure DataSetExportToCSV( const DatamoduleArtikel.DataModule1.IBDataSetArtikel : TIBDataSet; const FileName : string; const Header : boolean = False; const Delim : string = ';'; const Quote : string = '"' );
end;

procedure DataSetExportToCSV( const DataSet : TDataSet; const FileName : string; const Header : boolean = False; const Delim : string = ';'; const Quote : string = '"' );
begin
(wie Dein Vorschlag)
end;

Jetzt kommt der Fehler beim Compilieren: Anweisung erwartet, aber Procedure gefunden.

Könntest Du mir helfen? Habe sowieso Probleme mit den Procedure-Übergaben. Muß noch Menge Üben.

Danke, Luckner

[Jumpy]

Hallo,

bin zwar nicht Sir Rufo, aber das Benutzen der [delphi ][/delphi ]-Tags würde deinen Code schon übersichtlicher machen. Dann sieht man auch, das du in der Prozedur ButtonCsvExportClick die andere Prozedur nicht aufrufst, sondern stattdessen ihre definition dahin kopiert hast. Also:

Delphi-Quellcode:

procedure TFrameArtikel.ButtonCsvExportClick(Sender: TObject);
var FileName : string;
begin
  FileName := 'C:\temp\Artikel.csv';
  DataSetExportToCSV(DatamoduleArtikel.DataModule1.IBDataSetArtikel,FileName,False,';','"');
end;

[Luckner]

Hallo Jumpy,

danke für den Hinweis. Ich glaube, jetzt ist eine Pause fällig. Vor lauter Bäumen sehe ich den Wald nicht mehr. Ich hätte noch 2 Stunden darauf starren können und nichts gefunden.

Danke!