(Resolvido) criação de arquivo txt complicado

[flavioavilela]

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??? alguém pode dar uma dica???

[William - TI]

amigão faz assim coloca um memo no seu projeto e organise o memo como se fosse o qrquivo txt depos faça assim

//declarar no uses

ShellAPI;

//criar variavel

F:TextFile;

//cria txt caso não exista

caminho_completo :=c:\teste.txt;

AssignFile(f,caminho_completo);

//abre o arquivo

Rewrite(f);

//escreve no arquivo

if memo1.Lines.Count>0 then begin

Writeln(f, memo1.Text);

end;

//fecha o arquivo

Closefile(f);

qualquer coisa posta ai.

abraços.

[flavioavilela]

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;