Главная страница
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.023 c
1-77473
Sniffer
2002-06-11 19:29
2002.06.24
Чёртик, бегающий по экрану


7-77632
YDV
2002-03-25 14:44
2002.06.24
У кого-нибудь есть исходники Multi media tools for Delphi5 ...


8-77504
md_test
2002-02-14 13:21
2002.06.24
Как можно узнать програмно какие video-audio кодаки установлены ?


3-77250
MViper
2002-05-29 16:09
2002.06.24
Оптимизация работы с базой данных


7-77628
Fredericco
2002-03-13 21:17
2002.06.24
Этот вопрос уже задавался, но все же... Как мне работать с СОМ портом без ассемблера?