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;