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;
1 Resultado
[…] Veja mais […]