(Resolvido) Arquivo Txt

[valSistemasDelphi]

Tenho no meu sistema um Memo onde registra todas as vendas onde faço no caixa. Tenho um SpeedButton. > Finalizar onde Manda tudo que e vendido para o Memo, Neste SpeedButton Tem um Código "arq: textfile"; Onde em um Diretório Definido salva as vendas. Queria saber se tem como a cada venda que eu finalizar ele criar um novo Arquivo Txt. Assim eu visualizo cada venda feita. agradeço Desde já a quem poder me ajudar.

O código que estou usando e este... 

var arq: textfile;
begin
               try

begin
                  assignfile(Arq,'E:\ProjetoCadastro\Nova Lanchonete.txt');
                  rewrite(Arq);

  ////// Arquivos para Registrar no memo....

 end;

end;

    finally;

end;

[Jhonas]

Queria saber se tem como a cada venda que eu finalizar ele criar um novo Arquivo Txt. Assim eu visualizo cada venda feita

amigo, isso é contraproducente ( o que não é produtivo )  voce até pode achar isso legal, mas para um cliente isso é não é.

no final de um dia voce pode ter por exemplo: 300 arquivos txt... e para visualizar as suas vendas voce teria que abrir um por um ... imagine isso em um mês

voce pode continuar mandando tudo que e vendido para o Memo

ou pode criar um campo de controle , onde voce pode jogar para um quickreport todas as vendas do dia ( ou uma data especifica ou um periodo especifico )

mas se ainda quiser continuar com essa idéia, basta trocar o nome do arquivo cada vez que salvar

exemplo:

var
  Form1: TForm1;
  venda : Integer =0;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Arq : string;
  Local : TextFile;
begin

  inc(venda);

  Arq := 'C:\Venda'+inttostr(venda)+'.txt' ;

  AssignFile(Local, Arq);
  if not FileExists(Arq) then  //Verifica se existe o arquivo
  begin
   Rewrite(Local, Arq);
   Append(Local); //Cria o arquivo
   WriteLn(Local, Memo1.Lines.Text);
  end;
  CloseFile(Local);
end;

 

abraço

 

 

[valSistemasDelphi]

Valeu ai jhonas pela resposta. Resolvi ficar só pelo Memo mesmo, pois fica ate mais prático. Surgiu uma dúvida aqui no meu memo tem como por exemplo aparecer os preços dos produtos com seus respectivos Nomes dos Produtos. Eu consegui que ele visualizasse todo os produtos vendidos mais ainda não consegui que ele visualizasse os preços. Temtei fazer aqui só que sempre da erro de String For Integer; Tem como resolver isto. (Desculpe se estou fugindo um pouco do assunto proposto pelo Tópico).

Editado Março 12, 2016 por valSistemasDelphi

[Jhonas]

Surgiu uma dúvida aqui no meu memo tem como por exemplo aparecer os preços dos produtos com seus respectivos Nomes dos Produtos.

sim , voce pode jogar no memo, a descrição do produto e os preços

voce tem que converter integer ou float para string para colocar no Memo

exemplo

procedure TForm1.Button1Click(Sender: TObject);
var produto : string;
    quant : integer;
    preço : real;
begin
   produto := 'Refrigerante ';
   quant := 2;
   preço := 2.30;

   Memo1.Lines.Append(produto + ' - ' + inttostr(quant) + ' - ' + formatfloat('0.00',preço));
end;

abraço

 

 

[valSistemasDelphi]

Jhonas sem querer ser Deselegante,e já sendo um pouco sobre o assunto,tem como eu imcrementar isto com o preço Já cadastrado no banco de dados.

 

Por exemplo: Colocar desta forma assim.. Ibtable1,Fieldbyname('Valor_Lanche').ASString; Se poder me ajudar, vai ajudar muito.Desde já obrigado.

[Jhonas]

não  entendi .... voce quer jogar o conteudo do campo da tabela no memo ?

primeiro voce deve dizer como definiu os campos da tabela ( string, integer, float, etc ) 

[valSistemasDelphi]

Obrigado Por Responder!! Jhonas na minha tabela defini todos os campos como String;

[Jhonas]

até valores voce definiu como string ??

se são só strings e voce quer jogar em um memo , então não precisa fazer nenhuma conversão

basta jogar os campos no memo ... exemplo:

 Memo1.Lines.Append(  Ibtable1.Fieldbyname('Lanche').ASString + ' - ' +   Ibtable1.Fieldbyname('Valor_Lanche').ASString );

 

abraço

[valSistemasDelphi]

Muito Obrigado Jhonas isto que estava faltando. Agora aprendi mais uma para implementar no Memo. Considere o Tópico como Resolvido!! Valeu ai Jhonas você e o cara em Delphi...!!