Fórum RegMES^.Dia01:=Fieldbyname(´ptdtot´).Value; #231344
11/05/2004
0
Pessoal veja a linha de comando:
[b:3718552da8]RegMES^.Dia01:=Fieldbyname(´ptdtot´).Value;[/b:3718552da8]
De acordo com a data quero mudar meu registro de memória.
Exemplo
Decodedate(Fieldbyname(´data´).Value,Year,Month,Day);
montar algo parecido como
RegMES^.Dia+´inttostr(day):=Fieldbyname(´ptdtot´).Value;
Alguém sabe como posso fazer isso?
[b:3718552da8]RegMES^.Dia01:=Fieldbyname(´ptdtot´).Value;[/b:3718552da8]
De acordo com a data quero mudar meu registro de memória.
Exemplo
Decodedate(Fieldbyname(´data´).Value,Year,Month,Day);
montar algo parecido como
RegMES^.Dia+´inttostr(day):=Fieldbyname(´ptdtot´).Value;
Alguém sabe como posso fazer isso?
Pedro Dias
Curtir tópico
+ 0
Responder
Posts
11/05/2004
Nildo
Ao invez de criar varias variaveis contendo [b:f10efed83e]DIA01[/b:f10efed83e], [b:f10efed83e]DIA02[/b:f10efed83e], [b:f10efed83e]DIA03[/b:f10efed83e] até [b:f10efed83e]DIA31[/b:f10efed83e] do tipo Integer, crie uma variavel chamada DIA. Assim:
E quando for usar, usarás assim:
Entendeu?
TRegMes = record Dia: array [1..31] of Integer; // O resto das variaveis end;
E quando for usar, usarás assim:
RegMES^.Dia[ day ] := Fieldbyname(´ptdtot´).Value;
Entendeu?
Responder
Gostei + 0
11/05/2004
Pedro Dias
Cara esta dica vale no mínimo 2 (duas) cervejas.
Valeu vc me quebrou um galhão.
Valeu vc me quebrou um galhão.
Responder
Gostei + 0
11/05/2004
Nildo
[quote:7f9d74d3d9=´Pedro Dias´]Cara esta dica vale no mínimo 2 (duas) cervejas.[/quote:7f9d74d3d9]
Oba!!!! :lol:
[quote:7f9d74d3d9=´Pedro Dias´]Valeu vc me quebrou um galhão.[/quote:7f9d74d3d9]
Não tem por onde! (by chaves)
Oba!!!! :lol:
[quote:7f9d74d3d9=´Pedro Dias´]Valeu vc me quebrou um galhão.[/quote:7f9d74d3d9]
Não tem por onde! (by chaves)
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)