Delphi 属性多参数使用

来源：互联网发布：守望先锋手机数据查询编辑：程序博客网时间：2024/06/04 18:53

unit Unit1;interfaceuses  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字段

0 0