Delphi: Exportar StringGrid para CSV

Delphi: Exportar StringGrid para CSV

Dica: Exemplo de função para Exportar StringGrid para CSV

var

csv: tstringlist;

row, col: integer;

s,fn: string;

begin

fn := ExtractFilePath(Application.ExeName) + ‘bkp\’ + FormatDateTime(‘ddmmyy-hhnnsszzz’,Now) + ‘.csv’;

csv:= tstringlist.create;

for row:= 1 to stringgrid1.rowcount do

  begin

   s:= ”;

   for col:= 0 to stringgrid1.ColCount-1 do

   s:= s + stringgrid1.Cells[col, row-1] + ‘,’;

   csv.add (s)

  end;

 

csv.savetofile (fn);

csv.free;

FDantas

Formado pela FPJ (Faculdade Politecnica de Jundiai), atualmente atuando como analista de sistemas. Trabalha há mais de 10 anos com analise, desenvolvimento e customização de sistemas desenvolvidos em Progress 4GL como Magnus, EMS e HCM. Atua também com desenvolvimento web, utilizando a ferramenta WebSpeed.

Você pode gostar...

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Unable to load the Are You a Human PlayThru™. Please contact the site owner to report the problem.