Главная страница
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.022 c
7-77640
Beer
2002-03-27 10:17
2002.06.24
Определение значения тона.


4-77695
Сержик
2002-04-27 12:59
2002.06.24
Как перехватить нажатие кнопки?


3-77275
roadstar
2002-05-30 13:12
2002.06.24
SQL-запрос


3-77281
Андр
2002-05-29 14:47
2002.06.24
Обработка ошибок на русском


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