vc tem que usar a função VarArrayHighBound para saber o tamanho do array de
variant.
var
vArray: Variant;
i: Integer;
begin
vArray := VarArrayCreate([0,2], varVariant);
vArray[0] := 'um';
vArray[1] := 'dois';
vArray[2] := 'tres';
for i := 0 to VarArrayHighBound(vArray, 1) do
begin
Você precisa atribuir o conteúdo do Variant a uma variável do tipo Array
antes de poder obter seu Length e antes de poder percorrê-lo. Mas
lembre-se de que será feita uma cópia do array. Então, se o tamanho do
array for grande e você tiver que se preocupar com consumo de memória
e/ou performance, t
Tente isso:
Total.Caption := FormatFloat('###, ###,###0.00',(
DTM.tb_avan_soma.FieldByName('soma').AsFloat) -
-(DTM.tb_avanc_debito.FieldByName('debito').AsFloat));
Deve funcionar sem dar o erro mesmo tendo valores null
[]'s
RICARDO CERQUEIRA
ANALISTA DE SISTEMAS
On 6/16/05, Rodrigo Mota <[E
aços,
Paulo Sérgio
Bhte / MG
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Eduardo
Enviada em: quinta-feira, 16 de junho de 2005 11:17
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Variant type conversion
O problema e q um dos dois v
que bom que deu certo rodrigo,
o fieldbyname nao apareceu pra vc porque
DTM.tb_avan_soma. está depois da operação de subtração, se vc colocar numa
linha vazia ele aparece. bom trabalho pra vc.
=
>De:"Rodrigo Mota" <[EMAIL PROTECTED]>
>Para:
>Assunto
Assunto: Re: [delphi-br] Variant type conversion
O problema e q um dos dois valores estão nulos e não com 0.
Basta colocar 0 na tabela ou testar primeiro antes de tentar calcular.
function iif(Condicao: boolean; Verdadeiro, Falso: variant): variant;
begin
if Condicao then
Result
ndo bastante com o grupo e estou pegando
A manha do Delphi
valews
Rodrigo
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de eduardo.sic
Enviada em: quinta-feira, 16 de junho de 2005 10:22
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [de
;
end;
iif(DTM.tb_avan_soma.FieldByname( 'Soma' ).AsString = '', 0,
DTM.tb_avan_soma.FieldByname( 'Soma' ).Asfloat);
Eduardo
Ps.: espero ter ajudado.
- Original Message -
From: "eduardo.sic" <[EMAIL PROTECTED]>
To:
Sent: Thursday, June 16,
que tal:
Total.Caption := FormatFloat('###, ###,
###0.00',(DTM.tb_avan_soma.FieldByname( 'Soma' ).Asfloat -
DTM.tb_avanc_debito.FieldByname('debito').asFloat ) );
=
>De:"Rodrigo Mota" <[EMAIL PROTECTED]>
>Para:
>Assunto
Esta dando o erro EVariantError Invalid variant type conversion
Percebi o erro quando o resultado de soma é vazio ou débito é vazio,
quando os dois não estão vazios o erro não ocorre
Como procedo agora???
Total.Caption := FormatFloat('###, ###,
###0.00',(DTM.tb_avan_soma.FieldValues['soma'])
HI,
ae mano
vc também poder fazer assim
If(DataModulo.TMedica.Locate('TPMEDICA;CDMEDICA',VarArrayOf([EDIT1.TEXT,EDIT2.TEXT]),[]))then
=
Paulo Alexsandro - dprogrammer
http://dprogrammer.cjb.net
Delphi, NSBasic, etc. Fontes, artigos, visitem.
_
Galera, compilou o aplicativo, Obrigado a todos, sem essa listanão sei o q
seria dos q estão começando.
Paulo César Fernandes
Desenvolvimento
[As partes desta mensagem que não continham texto foram removidas]
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
Para ver
: info.Desenvolvimento [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 11 de fevereiro de 2005 10:52
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Variant
Pessoal desculpem o transtorno mas preciso dessa ajuda.
O problema é o seguinte (e-mails anteriores), eu tinha D5 eagora tenho D7,
quando fui
Pessoal desculpem o transtorno mas preciso dessa ajuda.
O problema é o seguinte (e-mails anteriores), eu tinha D5 eagora tenho D7,
quando fui compilar o sistema deu erro na variant, abaixo segue o meu código
completo:
Onde está o erro?
MINHA UNIT:
unit UTMdica;
interface
uses
Windows, Mes
14 matches
Mail list logo
