Tag: Dicas

0

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;...

0

Delphi: Forçar criação de Diretório

Delphi: Forçar criação de Diretório       if not DirectoryExists(ExtractFilePath(Application.ExeName) + ‘/teste’) then       ForceDirectories(ExtractFilePath(Application.ExeName) + ‘/teste’);