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

Próxima revisão
Revisão anterior
dev_geral:pascal:tutorial:anexos:des5 [2012/03/08 21:09]
thoga31 Criação deste novo documento.
dev_geral:pascal:tutorial:anexos:des5 [2018/05/14 21:37] (Atual)
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çãoque respeita as normas mas recorre a métodos não abordados ou até ao momento em que o Desafio 5 é colocado ou não são abordados no 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 normasmas 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.1331240968.txt.gz · Última modificação em: 2018/05/14 21:37 (edição externa)