Hi,
ich komm da nicht weiter. Vielleicht fehlt mir auch das nötige Wissen. Ich habe eine eigene Klasse Ttest mit einem default property erzeugt.
Hab das so behandelt wie ich Propertys immer behandle.
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, math, StdCtrls;
type
Ttest =
class
private
{ Private-Deklarationen }
constructor create;
function iget(
Index: Integer): integer;
procedure iput(
Index: Integer; Item: integer);
//ig:array of integer;
public
{ Public-Deklarationen }
property I[
Index: Integer]: integer
read iGet
write iPut;
default;
end;
TForm1 =
class(TForm)
Button1: TButton;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
s:Ttest;
implementation
{$R *.dfm}
constructor Ttest.create;
begin
//setlength(I,10);
end;
function Ttest.iget(
Index: Integer): integer;
begin
result:=I[
Index];
end;
procedure Ttest.iput(
Index: Integer; Item: integer);
begin
I[
Index]:=Item;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption:=inttostr(s[10]);
end;
procedure TForm1.FormCreate(Sender: TObject);
var f:double;tl:tlist;
begin
s:=TTtest.Create;
s[1]:=0;
end;
end.
Irgendwo muss ich dem Teil doch mitteilen wie gross das Array sein soll. Sobald ich in create setlength einfüge verlangt er nach dem I ein "[".
Kann mir jemand helfen?
Danke im Vorraus!