[Delphi] 레코드형 배열 초기화

Posted on 2014. 1. 29. 15:39
Filed Under Delphi

출처: http://www.delmadang.com/community/bbs_view.asp?bbsNo=3&indx=195652(델마당/강좌, 팁, 정보)

type
TFreq = packed record
mFreq: integer;
mDeviation: integer;
end;

TState = packed record
mTime: integer;
mDeviation: integer;
end;

TTone = packed record
mBuf : pChar;
mTid: integer;
mFreq1: TFreq;
mOff: TState;
end;

var
szTone : array [0..2] of TTone
= ((mBuf: nil; mTid: -1; mFreq1:(mFreq: 300; mDeviation: 10); mOff:(mTime: 0; mDeviation: 30)),
(mBuf: nil; mTid: -1; mFreq1:(mFreq: 300; mDeviation: 10); mOff:(mTime: 0; mDeviation: 30)),
(mBuf: nil; mTid: -1; mFreq1:(mFreq: 300; mDeviation: 10); mOff:(mTime: 0; mDeviation: 30)));

Tone : TTone
= (mBuf: nil; mTid: -1; mFreq1:(mFreq: 300; mDeviation: 10); mOff:(mTime: 0; mDeviation: 30));