Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.24;
Скачать: CL | DM;

Вниз

как создать тип к кот. можно обр. ро индексу и как к простому?   Найти похожие ветки 

 
MSergey ©   (2002-06-12 02:59) [0]

Плизз. Подскажите как создатьь свой тип данных по аналогии с TListItems"ом , т.е. чтоб к нему можно было обращатся и по индексу и просто как к типу???


 
PVR ©   (2002-06-12 03:16) [1]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TPerson=integer;
TPersonArray=class
private
FList:TList;
function GetPerson(index: integer): TPerson;
function Getpersons(Index: integer): TPerson;
procedure PutPerson(index: integer; Person: TPerson);
procedure Setpersons(Index: integer; const Value: TPerson);
public
property persons[Index:integer]:TPerson read Getpersons write Setpersons;default;
constructor create;
destructor destroy;override;
end;
var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var a:TPersonArray;
begin
a[2]:=a[1];
end;

{ TPersonArray }

constructor TPersonArray.create;
begin
FList.Create;
end;

destructor TPersonArray.destroy;
begin
FList.Free;
inherited;
end;

function TPersonArray.GetPerson(index: integer): TPerson;
begin

end;

function TPersonArray.Getpersons(Index: integer): TPerson;
begin

end;

procedure TPersonArray.PutPerson(index: integer; Person: TPerson);
begin

end;

procedure TPersonArray.Setpersons(Index: integer; const Value: TPerson);
begin

end;

end.





Страницы: 1 вся ветка

Текущий архив: 2002.06.24;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
3-77291
BACEK
2002-05-29 15:51
2002.06.24
Как получить результат выполнения процедуры в формате XML


7-77625
Heruvim4ik
2002-03-25 18:37
2002.06.24
как программно вырубить комп?


14-77561
IronHawk
2002-04-29 16:07
2002.06.24
---|Ветка была без названия|---


14-77560
Song
2002-05-20 10:55
2002.06.24
Чего-то форум колбасит... Или только у меня?


6-77532
Doom
2002-04-15 16:53
2002.06.24
Что лучше использовать - Stream Socket или UDP Socket?