Re: [delphi-br] [help funcao com record]

[Marcio Luis]

Humm .. bom ideia ,

mas na utilizacao o delphi pede para eu passar o parametro REC.
o que eu informo ?

  if leXML_ReciboLoteEnviado(arquivo,REC) then .

Re: [delphi-br] [help funcao com record]

[Dirlei]

Marcio,

Espero ter entendido bem: sua função retorna um record, mas você também 
precisa também de um outro valor de retorno, um booleano. Se for isso, 
aqui vai a minha sugestão para o seu problema:

function TfrmEnvio.leXML_ReciboLoteEnviado(ArquivoEnder:String; var rec: 
TDadosRecibo):  boolean;

O retorno da função passa a ser o booleano. Se o retorno for TRUE é 
porque o record foi preenchido corretamente (teve resultado), ou seja, 
nenhum erro entre os previstos foi encontrado.

[ ]'s
Dirlei.


Marcio Luis escreveu:
  

 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_ReciboLoteEnviado(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

 

[delphi-br] [help funcao com record]

[Marcio Luis]

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_ReciboLoteEnviado(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

Re: [delphi-br] [help funcao com record]

[Ricardo César Cardoso]

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]