//.... type TForm1 = class(TForm) private FArrayInteger: array[0..255] of Integer; function GetArrayInteger(I: Integer): Integer; procedure SetArrayInteger(I: Integer; const Value: Integer); public property ArrayInteger[I: Integer]: Integer read GetArrayInteger write SetArrayInteger; end;//.... implementation //....function TForm1.GetArrayInteger(I: Integer): Integer; begin Result := -1; if (I < 0) or (I > 255) then Exit; Result := FArrayInteger[I]; end;procedure TForm1.SetArrayInteger(I: Integer; const Value: Integer); begin if (I < 0) or (I > 255) then Exit; FArrayInteger[I] := Value; end; //....
type
TForm1 = class(TForm)
private
FArrayInteger: array[0..255] of Integer;
function GetArrayInteger(I: Integer): Integer;
procedure SetArrayInteger(I: Integer; const Value: Integer);
public
property ArrayInteger[I: Integer]: Integer read GetArrayInteger write SetArrayInteger;
end;//....
implementation
//....function TForm1.GetArrayInteger(I: Integer): Integer;
begin
Result := -1;
if (I < 0) or (I > 255) then Exit;
Result := FArrayInteger[I];
end;procedure TForm1.SetArrayInteger(I: Integer; const Value: Integer);
begin
if (I < 0) or (I > 255) then Exit;
FArrayInteger[I] := Value;
end;
//....