[resolvido] Cadastro Salvo No Bloco De Notas

[Pretinha]

Olá,

Bom... a intensão é a seguinte: fazer de um arquivo do bloco de notas um bd do programa:

var

Form1: TForm1;

nome, tipo, evolucao, ataque: string;

arquivo: textfile;

begin

nome:=edit1.Text;

tipo:=edit2.Text;

evolucao:=edit3.Text;

ataque:=edit4.Text;

AssignFile(arquivo,'teste.txt');//atribuir tudo do teste.txt na variavel arquivo

Rewrite(arquivo);//abre o arquivo para escrita, tornar ele editavel

Write(arquivo,'Nome:');//escreve no arquivo

Writeln(arquivo,nome);

Write(arquivo,'Tipo:');

Writeln(arquivo,tipo);

Write(arquivo,'Evolução:');

Writeln(arquivo,evolucao);

Write(arquivo,'Principal Ataque:');

Writeln(arquivo,ataque);

Closefile(arquivo);

edit1.Text:=' ';

edit2.Text:=' ';

edit3.Text:=' ';

edit4.Text:=' ';

O cod acima, é um cod bobo, que serve de ex, porém este cod só é capaz de salvar no bloco de notas o ultimo cadastro.

Se algúem tiver alguma idéia de como fazer para que todos os cadastros sejam salvos, por favor ajude!

[Churc]

Opa

Eu aconselho você usar arquivos .INI, ou pelo menos a estrutura deles...

de qualquer forma, respondendo sua dúvida da uma olhada nisto.

abraços

[Pretinha]

ei!

Brigadão!

Esse post que você me passo ajudo muito...com + um pokin de raciocinio da minha parte xeguei ao meu objetivo..

Brigadão mesmo!

=]