月: 2015年5月

投稿日:

構造体

private
{ Private 宣言 }
Type
TPersonData = record
fID :Integer;
fName :String;
end;

procedure Tf_basic_l.lbl_titleClick(Sender: TObject);
var
i : Integer;
// arrPsnData :array of TPersonData; //動的配列として
arrPsnData :array[0..9] of TPersonData; //動的配列として
begin
arrPsnData[0].fID := 100;
arrPsnData[0].fName := ‘test’;
arrPsnData[1].fID := 101;
arrPsnData[1].fName := ‘test2’;

i := 0;
while i <= 2 do begin
ShowMessage(arrPsnData[i].fName);
Inc(i);
end;

end;

投稿日:

エリアクリア

for i:=1 to ComponentCount-1 do begin
if Components[i] is TEdit then TEdit(Components[i]).Text :=”;
if Components[i] is TSsEdit then TSsEdit(Components[i]).Text :=”;
if Components[i] is TMemo then TMemo(Components[i]).Text :=”;
if Components[i] is TplDateEdit then TplDateEdit(Components[i]).SetEditEmpty;
end;

投稿日:

レコード型変数

■レコード型とは
任意の形式の型を自分で定義する手段である。構造体のようなもの。
例）
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;