Ir para conteúdo
Fórum Script Brasil
  • 0

[resolvido] Cadastro Salvo No Bloco De Notas


Pretinha

Pergunta

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!

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...