Delphi 属性多参数使用

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,FuncBaseClass, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TTable = class
  private
    function GetCellValue(irow, icol: Integer): string;
    procedure SetCellValue(irow, icol: Integer; const Value: string);
  public
    property CellValue[irow:Integer;icol:Integer]: string  read GetCellValue  write SetCellValue; default;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TTable }

function TTable.GetCellValue(irow, icol: Integer): string;
begin
   ShowMessage('GetCellValue');
end;

procedure TTable.SetCellValue(irow, icol: Integer; const Value: string);
begin
     ShowMessage(Value);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   tt:TTable;
begin
   tt:=TTable.Create;
   tt[1,1];
   tt[1,1]:='hello' ;
end;
end.

以上代码虽然没有指定那个属性，但是他会自动匹配到CellValue字段