Correto até que é. Mas eu daria preferência a trabalhar não com um record, mas 
com um tipo personalizado e tratar um conjunto de itens desse tipo como uma 
coleção, algo descrito nos links {1} e {2} ambos com exemplos, que utiliza 
tipos já existentes no Delphi para essas "ocasiões" como TList, TObjectList, 
TCollection e outros menos votados, mas não menos uteis, e aplicáveis as mais 
variadas situações.


Referências:
{1} - http://www.atug.com/andypatterns/collections.htm - em inglês, consultado 
em 29.09.2009
{2} - http://tocadoelfo.blogspot.com/2007/08/usando-colees-no-delphi.html - em 
português, consultado em 29.09.2009

1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.

2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor 
compreendida.

3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!

--- Em ter, 29/9/09, Marcio Luis <mar...@sulfabril.com.br> escreveu:

De: Marcio Luis <mar...@sulfabril.com.br>
Assunto: [delphi-br] [help funcao com record]
Para: delphi-br@yahoogrupos.com.br
Data: Terça-feira, 29 de Setembro de 2009, 13:06






 




    
                  Pessoal , tenho algumas funcoes aqui que utilizo o retorno 
como Record.



Gostaria de uma ajuda dos mais experientes no assunto, se é correto isso ,

ou tem forma mais pratica de usar.



o mais esquisito é qundo quero tratar se teve resultado .



numa funcao normal faria assim



if minhaFuncao( valor) then



agora com um recorde é mais complicado

tenho que passar um valor .



teria outro jeito de usar isso ??



att. Marcio



TDadosRecibo = record

     cStat : String;

     xMotivo: String;

     nRec: String;

   end;



function TfrmEnvio.leXML_ ReciboLoteEnviad o(ArquivoEnder: String): 
TDadosRecibo;

var

   achou : Boolean;



begin

   achou := FAlse;



if achou = false then

     begin

           result.cStat    := 'ERRO_404';

           Result.nRec     := 'ERRO_404';

           Result.xMotivo  := 'Arquivo nao encontrado' + ArquivoEnder;

     end

     else

     begin



result.cStat    := cStat;

           Result.nRec     := nRec;

           Result.xMotivo  := xMotivo;

      end;



end;



if




 

      

    
    
        
         
        
        








        


        
        


      
____________________________________________________________________________________
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]

Responder a