Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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
Carregando comentários...