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

Вниз

Помогите в разработке компонента   Найти похожие ветки 

← →
hawkins   (2004-04-08 18:31) [0]

Привет, Мастаки! Помогите в разработке компонента; хочу
добавить новое свойство - массив типа integer (array of integer),
длинна масива переменная. Нужен какой-нибудь примерчик.
Если у кого есть -  скинте. Заранее спасибо.

---

← →
WebErr ©   (2004-04-08 18:49) [1]


TSomeBig = class(TSomeLittle)
protected
 X, Y, Z: Real;
 function GetCoord(AIndex: Char): Real;
 procedure SetCoord(AIndex: Char; Value: Real);
published
 property Coords[AIndex: Char]: Real read GetCoord write SetCoord;
end;
...
function TBigSome.GetCoord(AIndex: Char): Real;
begin
 case AIndex of
   "X": Result := X;
   "Y": Result := Y;
   "Z": Result := Z;
   else Result := 0;
 end;
end;

procedure TBigSome.SetCoord(AIndex: Char; Value: Real);
begin
 case AIndex of
   "X": X := Value;
   "Y": Y := Value;
   "Z": Z := Value;
 end;
end;


---

← →
WebErr ©   (2004-04-08 18:50) [2]

Sorry, там перепутано Big и Some - спешил, сочиняя на ходу... :))))

---

← →
VMcL ©   (2004-04-08 19:11) [3]

>>hawkins  (08.04.04 18:31)

DelphiN/Source/*.pas
См. классы TList, TStringList и т. п.

>>WebErr ©  (08.04.04 18:49) [1]

В упор не вижу array of Integer.

---

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

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

Наверх

Память: 0.47 MB
Время: 0.054 c