TCSVExporter

From Lazarus wiki
Jump to navigationJump to search

A simple example of TCSVExporter use.

interface

type
   TSampleList = class(TFrame)
      bdsSampleList: TBufDataset;
      CSVExporter1: TCSVExporter;
      sd1: TSaveDialog;
      procedure mniSaveClick(Sender: TObject);
   end; 

implementation

procedure TSampleList.mniSaveClick(Sender: TObject);
begin
   if sd1.Execute then begin
      with CSVExporter1 do begin 
         DataSet := bdsSampleList; 
         FileName:= sd1.FileName;
         Execute;
      end; 
      ShowMessage('SampleList exported');
   end;
end;