RegMES^.Dia01:=Fieldbyname(´ptdtot´).Value;

Delphi

11/05/2004

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?


Pedro Dias

Pedro Dias

Curtidas 0

Respostas

Nildo

Nildo

11/05/2004

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:

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?


GOSTEI 0
Pedro Dias

Pedro Dias

11/05/2004

Cara esta dica vale no mínimo 2 (duas) cervejas.

Valeu vc me quebrou um galhão.


GOSTEI 0
Nildo

Nildo

11/05/2004

[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)


GOSTEI 0
POSTAR