Arquivo Txt

[Guest Alessandro]

Eu já vi uma resposta de como gerar o arquivo txt mas não entendi muito bem.

Estou fazendo um Script de atendimento e preciso gerar um arquivo.txt somente com alguns dados...um para cada assistência técnica.....a lógica seria a seguinte :

Tem três objetos : 2 Edit e 1 Button

1º Digito o código no Edit1, por exemplo : BR01SP

2º Clico no Button "consultar"

3º Entrar na condição :

Se "não houver registro" então

// Mensagem("não há registro !").

// Coloco o código e a quantidade de ligações e salvo gerando o arquivo.txt.

senao

// traz o código(BR01SP) no Edit1 e a quantidade de ligações no Edit2.

// clico no Button e salva contando a qtde de ligações atual + 1.

Bom, é isso, se alguém tiver o tempinho de responder iria adiantar 50% do projetinho aqui......Abraço galera.....

Ah, sou meio leigo em Delphi, preciso saber onde colocar os códigos.....Por exemplo : ele fica no evento do botão ?

Sem mais......

[Corposemalma]

Coloca na tua unit essa funcao:

function CriarArquivo(NomeArq,Dados: String):Boolean;
ArqLogico:TextFile;
begin
try
AssignFile(ArqLogico,NomeArq);
if not FileExists(NomeArq) then
ReWrite(ArqLogico)
else
Append(ArqLogico);
Result:=True;
except
Result:=False;
end;
if Result then
begin
WriteLn(ArqLogico,Dados);
CloseFile(ArqLogico);
end;
end;
POR Ricardo Scache Belardinuci

para usar:

CriarArquivo(NomeDoArquivo, edit1.text + 'BLA BLA BLA' + edit2.text);