О фреймах

← →
Mikhalyov Dmitry (2001-12-29 14:14) [7]

так все работает и у меня ( если целое значение ) но вот если хочу задать массив и заполнить его, то StackOverflow .Поскажите:
unit mas;

type
TForm1 = class(TForm)
Button1: TButton;

procedure Button1Click(Sender: TObject);
private
function Getput(num: integer): string;
procedure Setput(num: integer; const Value: string);
private
property put[num:integer]:string read Getput write Setput;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

{ TForm1 }

function TForm1.Getput(num: integer): string;
begin
Result:=put[num];
end;

procedure TForm1.Setput(num: integer; const Value: string);
begin
put[num]:=value;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
setput(1,"0");
end;

end.

О фреймах Найти похожие ветки