Ferramentas de Usuário

Ferramentas de Site


dev_geral:pascal:tutorial:anexos:des5

Diferenças

Esta página mostra as diferenças entre as duas revisões da página.

Links para esta vista de comparação

Ambos os lados da revisão anterior Revisão anterior
Próxima revisão
Revisão anterior
dev_geral:pascal:tutorial:anexos:des5 [2012/03/08 21:15]
thoga31
dev_geral:pascal:tutorial:anexos:des5 [2013/02/16 00:54]
Rui Carlos Correcção de link.
Linha 1: Linha 1:
 ====== Desafio 5 - proposta de resolução avançada ====== ====== Desafio 5 - proposta de resolução avançada ======
-No âmbito [[http://www.portugal-a-programar.org/forum/index.php/topic,63958.0.html|deste desafio]] colocado junto dos utilizadores de Pascal e Delphi do P@P, o membro [[http://www.portugal-a-programar.org/forum/index.php?action=profile;u=19288|nunopicado]] propôs a seguinte proposta de resolução que respeita as normas, mas que recorre a métodos não abordados ou até ao momento em que o Desafio 5 é colocado ou em todo o Tutorial.\\ +No âmbito [[http://www.portugal-a-programar.pt/topic/51166-tutorial-2010-desafio-5-contribuam/|deste desafio]] colocado junto dos utilizadores de Pascal e Delphi do P@P, o membro [[http://www.portugal-a-programar.org/forum/index.php?action=profile;u=19288|nunopicado]] propôs a seguinte proposta de resolução que respeita as normas, mas que recorre a métodos não abordados ou até ao momento em que o Desafio 5 é colocado ou em todo o Tutorial. 
-\\+
 <code pascal> <code pascal>
 program Desafio5; program Desafio5;
Linha 207: Linha 207:
  
            // Se existir um CV para o nome inserido...            // Se existir um CV para o nome inserido...
-           if FileExists(ExtractFilePath(ParamStr(0))+'\CV'+CV.Pessoal.Nome+'.TXT')+           if FileExists(ExtractFilePath(ParamStr(0))+'CV'+CV.Pessoal.Nome+'.TXT')
               then begin               then begin
                         //... faz a leitura para o record                         //... faz a leitura para o record
-                        LoadCV(ExtractFilePath(ParamStr(0))+'\CV'+CV.Pessoal.Nome+'.TXT');+                        LoadCV(ExtractFilePath(ParamStr(0))+'CV'+CV.Pessoal.Nome+'.TXT');
  
                         // Apresenta os valores                         // Apresenta os valores
Linha 260: Linha 260:
            write(SaveOP);            write(SaveOP);
            if SaveOP = 'S'            if SaveOP = 'S'
-              then SaveCV(ExtractFilePath(ParamStr(0))+'\CV'+CV.Pessoal.Nome+'.TXT'); // Grava o record para o ficheiro+              then SaveCV(ExtractFilePath(ParamStr(0))+'CV'+CV.Pessoal.Nome+'.TXT'); // Grava o record para o ficheiro
      Until CV.Pessoal.Nome='';      Until CV.Pessoal.Nome='';
 end; end;
Linha 273: Linha 273:
 end. end.
 </code> </code>
-\\+
 {{tag>pascal delphi}} {{tag>pascal delphi}}
dev_geral/pascal/tutorial/anexos/des5.txt · Última modificação em: 2018/05/14 21:37 (edição externa)