[Resolvido] criação de arquivo txt complicado

[flavioavilela 0]

boa noite a todos...

seguinte: tenho em meu sistema uma tela de vendas. na tela tem um dbgrid que contem alguns dados que por sua vez está ligada a uma query que está ligada ao bd... sql server... preciso pegar essas informações que está no dbgrid e outras q estão em um Edit e colocar tudo no Arquivo.Txt para que eu possa enviar por e-mail. Como criar esse arquivo txt??? alguem pode dar uma dica???

[Chrnos 30]

Amigo, este assunto já foi discutido em vários tópicos aqui no fórum.... dê uma pesquisada que vai achar bastante material ok?

 

Como tópico inicial de pesquisa, veja este.

 

[]'s

[flavioavilela 0]

galera, consegui resolver meu problema... consegui criar um esquema que pega os dados da query e manda prum arquivo texto... ai depois, e só enviar por e-mail... segue abaixo o código:

 

var
	Arq: TextFile;
begin
	AssignFile(Arq, ExtractFilePath(Application.ExeName) + '\Orçamentos Vendas\' + EdtN_Pedido.Text + '.txt');
	Rewrite(Arq);
	Writeln(arq, 'Venda');
	Writeln(arq, 'Número Pedido: ' + EdtN_Pedido.Text + '	' + 'Cliente: ' + EdtCliente.Text + '	' + 'Funcionário: ' + EdtFuncionario.Text);
	writeln(arq);
	dm.qry_itens_venda.First;
	while not dm.qry_itens_venda.Eof do
	  begin
		writeln(arq, dm.qry_itens_venda.FieldByName('Codigo_Produto').Value + '	' + dm.qry_itens_venda.FieldByName('Nome_Produto').Value + '	' + FloatToStr(dm.qry_itens_venda.FieldByName('Valor_venda').Value) + '	' + FloatToStr(dm.qry_itens_venda.FieldByName('Quantidade').Value) + '	' + FloatToStr(dm.qry_itens_venda.FieldByName('Sub_Total').Value));
		dm.qry_itens_venda.Next;
	  end;
	  CloseFile(arq);

	  Application.CreateForm(TFrmEnviar_Email, FrmEnviar_Email);
	  FrmEnviar_Email.ShowModal;
	  FrmEnviar_Email.Free;