Esta página mostra as diferenças entre as duas revisões da página.
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:// | + | No âmbito [[http:// |
- | \\ | + | |
<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))+' | + | if FileExists(ExtractFilePath(ParamStr(0))+' |
then begin | then begin | ||
//... faz a leitura para o record | //... faz a leitura para o record | ||
- | LoadCV(ExtractFilePath(ParamStr(0))+' | + | LoadCV(ExtractFilePath(ParamStr(0))+' |
// Apresenta os valores | // Apresenta os valores | ||
Linha 260: | Linha 260: | ||
| | ||
if SaveOP = ' | if SaveOP = ' | ||
- | then SaveCV(ExtractFilePath(ParamStr(0))+' | + | then SaveCV(ExtractFilePath(ParamStr(0))+' |
Until CV.Pessoal.Nome=''; | Until CV.Pessoal.Nome=''; | ||
end; | end; | ||
Linha 273: | Linha 273: | ||
end. | end. | ||
</ | </ | ||
- | \\ | + | |
{{tag> | {{tag> |