LBound 配列の開始添字
LBound関数は配列の開始の添え字を返します。
Delphiでは Low関数を使用します。
| ■ Lowの例 |
procedure TForm1.Button1Click(Sender: TObject);
var
S : array [4..10] of string;
ix : integer;
begin
for ix := Low(S) to High(S) do begin
S[ix] := '';
end;
end;
|
| ■ ユーザー定義の列挙型での例 |
procedure TForm1.Button1Click(Sender: TObject);
type
TMonth = (mtJan, mtFeb, mtMar, mtApr, mtMay, mtJun,
mtJul, mtAug, mtSep, mtOct, mtNov, mtDec);
var
S : array [mtJan..mtDec] of string;
ix : TMonth;
begin
for ix := Low(S) to High(S) do begin
S[ix] := '';
end;
end;
|