Inicializar um Record

Delphi

29/08/2007

Colegas, existe alguma função que eu possa chamar para inicializar os campos de um Record? Por exemplo: inteiro com zeros, string com vazio, etc...

Tentei assim mas não funcionou:

TregProduto = Record
  IDProduto        : Integer;
  NomeProduto      : String;
  Unidade          : String; 
  VlrVenda         : Real;
  Etc...
End;

procedure...
var
  Reg : TregProduto
begin
  Initialize(Reg);
end;



Vispo

Vispo

Curtidas 0

Respostas

Rjun

Rjun

29/08/2007

Não sei não, mas acho que você tem que fazer isso na mão.


GOSTEI 0
Leufmt

Leufmt

29/08/2007

Pelo que eu entendi tu quer inicializar os campos com teus valores nulos. Se for isto basta tu fazer o seguinte:

Tabela.FieldByName(´Campo´).Clear;


GOSTEI 0
Beppe

Beppe

29/08/2007

Initialize(rec);
FillChar(rec, SizeOf(rec), 0);

Initialize vai remover referências dos campos dinâmicos(string, array).
FillChar termina por limpar as variáveis ordinais.

Execute sempre as duas nesta sequência. E teste extensivamente.

PS: Eu preferiria uma classe.


GOSTEI 0
POSTAR