■レコード型とは
任意の形式の型を自分で定義する手段である。構造体のようなもの。
例)
TRecSample = record
EMP_NO: string;
NAME: string;
BU_CD: string;
end;
…
SrcData: TRecSample;
■例
例)レコード型配列の最小要素から最大要素まで順番にループする
type
//レコード型宣言部
TEmp = Record
EMP_NO :String;
ENAME :String;
end;
…
public
//レコード型を元に、配列宣言
arrEmp : Array[1..1000] of TEmp;
end;
//従業員レコードを格納する配列の初期化
for i := Low(arrEmp) to High(arrEmp) do
begin
arrEmp[i].EMP_NO := '';
arrEmp[i].ENAME := '';
end;