[Resolvido] [PASCAL]Gerenciar membros de um clan

[Kelvin Dules 0]

Olá, mais uma vez venho tirar algumas duvidas sobre o pascal ¬¬

 

Estou criando um programinha para: Cadastrar um membro criando um arquivo de texto com sua ficha

*Editar ficha a partir do programa

*Remover ficha

 

Seguinte... consegui fazer para ele criar o arquivo de texto com a ficha... mas ele só grava onde está o executavel.. nao to conseguindo fazer ele criar o txt em qualquer outro diretorio do hd||| Não consegui fazer ele editar a ficha a partir do proprio programa, ou seja, abrir o arquivo de texto escolhido pelo usuario do programa, edita-lo e salvar as alteraçoes Um problema sério é que ele nao cria tipo Ficha001 e depois Ficha 002... ele simplismente atualiza o q ja existe ¬¬

 

 

Por ultimo queria saber como fazer o programa procurar um arquivo para remover.. ou seja.. eu digito tipo.. ficha01.txt e ele vai e deleta essa ficha.

 

segue o codigo:

Program Pzim;
 VAR//Variáveis**
 Registro:text;
 nome,rank,nickname,cidade_e,tempo,idade,status:string;
 opcaoexe:integer;
 
 Begin   //Início do Programa
   assign(Registro,'Ficha_Membro.txt');
   rewrite(Registro);
   writeln('=====|| Gerenciamento de Membros ||=====');
   writeln('=====							  =====');
   writeln('=====   VGS - Vengeance Shooters   =====');
   writeln('========================================');
   writeln('--- Menu de Navegação ---');
   writeln('');
   writeln('[1] Adicionar Membro');
   writeln('[2] Editar Conta');
   writeln('[3] Remover Conta -manutencao-');
   writeln('--------------------');
   writeln('Digite o número relativo à função para executar.');
   writeln('==============================================||');
   read(opcaoexe);
   //Adicionar Membro
   if opcaoexe=1 then
   begin
   writeln('========== Ficha do Membro ==========');
   writeln('Nome Completo:');
   read(nome);
   writeln('Nickname:');
   read(nickname);
   writeln('Idade:');
   read(idade);
   writeln('Cidade/Estado:');
   read(cidade_e);
   writeln('Quanto tempo joga GTA SA:');
   read(tempo);
   writeln('Rank(Fundador,ADM,SUB_ADM,Comum):');
   read(rank);
   writeln('Status(ATIVO,INATIVO):');
   read(status);
   writeln(Registro,'== Ficha do Membro ==');
   writeln(Registro,'========================='); 
   writeln(Registro,'Nome:',' ',nome);
   writeln(Registro,'Nickname:',' ',nickname);
   writeln(Registro,'Idade:',' ',idade);
   writeln(Registro,'Cidade/Estado:',' ',cidade_e);
   writeln(Registro,'Rank:',' ',rank);
   writeln(Registro,'Tempo de Jogo:',' ',tempo);
   writeln(Registro,'STATUS:[',status,']');
   writeln(Registro,'=================== Fim');			   
   close(Registro);
   end;
   End.

Por favor respodam as perguntas meio q indiretas que estao em negrito""

 

VLW http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Kelvin Dules 0]

Resolvi o problema de ele só atualizar o arquivo de txt

agora da pra escolher o nome e extensao do arquivo que vai ser salvo..

if opcaoexe=1 then
   	writeln('Nome da Ficha(nome_da_ficha.txt):');
   	read(nficha);
	assign(Registro,nficha);
   	rewrite(Registro);

 

Os únicos problemas são:

 

*Como abrir e editar esse arquivo .txt pelo programa.

 

-----------------------------------------------------||

 

Obrigado.. e respondam o mais rapido possivel.. eh URGENTE =p

 

EDIT: Só preciso saber como abrir o arquivo de texto e editá-lo a partir do programa! -------------------------<<<<<