Diferenças

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

--- 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 ======
-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 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 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>
 program Desafio5;
@@ Linha 207: / Linha 207: @@
            // 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
                         //... 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
@@ Linha 260: / Linha 260: @@
            write(SaveOP);
            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='';
 end;
@@ Linha 273: / Linha 273: @@
 end.
 </code>
-\\
 {{tag>pascal delphi}}

Wiki Portugal-a-Programar

Ferramentas de Usuário

Ferramentas de Site

Diferenças

Ferramentas de Página