[210603] Record 변수 초기화

System.Default 함수로 레코드 변수 초기화

Type

TCust_Rec = Packed Record

  iSEQ : Integer;

  sNAME : String;

  sJUSO : String;

  sTel : String;

End;


Var

  Cust_Rec : TCust_Rec;

begin

// 기존 초기화 (변수가 많을때 초기화 누락하는 실수가 많음)

with Cust_Rec do begin

  iSEQ := 0;

  sNAME := '';

  sJUSO := '';

  sTel := '';

end; 


// 간단한 초기화 

Cust_Rec := Default(TCust_Rec);

end;