[Delphi] 변수, 상수, 배열, 포인터 Syntax

// 문자형 초기화
var
	ch: Char;
begin
	ch := #0;

// 상수값 정의
const
	_FORM01_DEFAULT_CAPTION = '창 제목';
	_MAX_FILESIZE  = 1000000;

// 배열의 인덱스용으로써 타입 정의
type
	TDbActionType = (datSelect, datInsert, datUpdate datDelete, datNone);
const
	_DBACTTYPE_FIRST = 0; // datSelect
	_DBACTTYPE_LAST = datDelete;

// 레코드 타입 정의 및 초기화
type
	TDbActionInfo =  record
		rsQuery: String;
		rsErrorMsg: String;
	end;

const
	DbActionInfoArray: array [_DBACTTYPE_FIRST.._DBACTTYPE_LAST] of TDbActionInfo =
	(
		rsQuery: 'SELECT A FROM tbl_nm WHERE '; rsErrorMsg: 'No Message'),
		rsQuery: 'INSERT INTO tbl_nm VALUES('; rsErrorMsg: 'No Message'),
		rsQuery: 'UPDATE tbl_nm SET'; rsErrorMsg: 'No Message'),
		rsQuery: 'DELETE FROM tbl_nm WHERE'; rsErrorMsg: 'No Message')
	);

// 포인터 정의 (val^ : 값 / @val: 포인터)
var
	val1, val2: TDbActionInfo;
	FPcxImageList: array[0..1] of ^TDbActionInfo;
begin
	FPcxImageList[0] := @val1;
	FPcxImageList[1] := @val2;

	...

	if FPcxImageList[0]^.rsErrorMsg <> 'No Message' then
	begin
		Application.MessageBox(FPcxImageList[0]^.rsErrorMsg, MB_OK + MB_ICONERROR);
	end