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

Вниз

Свойство для поля array[0..20] of char   Найти похожие ветки 

← →
Очень злой   (2012-03-14 00:16) [0]

Имеется поле типа packed array[0..20] of char
и нужно в компоненте приделать к нему свойство
Желательно (но в крайнем случае можно и по другому, если посоветуете), чтобы его значение в инспекторе объектов отображалось в виде, например: 5F 3B 35 2E 5D 39 34 2D 33 31 3D 3D 2D 25 78 54 21 5E 5B 24 00

Делаю так:

TLС4 = class (TComponent)
 private
   ...
   FToken:packed array[0..20] of char;
   ...
   procedure SetToken(Value:string);
   function  GetToken:string;
 public
 ...
 published
 ...
   property Token:string read GetToken write SetToken;// default "5F 3B 35 2E 5D 39 34 2D 33 31 3D 3D 2D 25 78 54 21 5E 5B 24 00";
end;
...
procedure TLС4.SetToken(Value:string);
var
 i,k:integer;
begin
 k:=(length(value)+1) div 3;
 for i:=0 to k-1 do FToken[i]:=chr(strtointdef("$"+value[i*3+1]+value[i*3+2],0));
 for i:=k to 20 do FToken[i]:=chr(0);
end;

function  TLС4.GetToken:string;
var
 i:integer;
begin
 result:=IntToHex(ord(Ftoken[0]),2);
 for i:=1 to 20 do result:=result+" "+IntToHex(ord(Ftoken[i]),2);
end;


Но не получается приделать ему дефолтное значение.
Как лучше это сделать? присваивать в конструкторе?

---

← →
Очень злой   (2012-03-14 00:17) [1]

И вообще, какие типы данных поддерживаются в инспекторе объектов?

---

← →
_oxffff   (2012-03-14 00:41) [2]

http://www.drbob42.com/delphi/property.htm

---

← →
Германн ©   (2012-03-14 02:01) [3]

> Имеется поле типа packed array[0..20] of char

Какой нафиг "packed array" в Д7?

---

← →
Очень Злой   (2012-03-14 02:14) [4]

> Какой нафиг "packed array" в Д7?


Один раз когда-то наступил на грабли. Теперь всегда пишу packed, в любом случае, надо или не надо, но чтобы быть на 100% уверенным, что компилятор меня правильно понял. :)

---

← →
Anatoly Podgoretsky ©   (2012-03-14 07:58) [5]

> Очень злой  (14.03.2012 00:16:00)  [0]

Инициализация свойств по умолчанию делается в Create

---

← →
Slym ©   (2012-03-14 15:20) [6]

default отвечает за сохранение в DFM
если совпало - не сохранять
иначе сохранить

---

← →
Anatoly Podgoretsky ©   (2012-03-14 15:59) [7]

> Slym  (14.03.2012 15:20:06)  [6]

Только за значение по умолчанию, а сохранение или нет побочный фактор
За сохранение отвечает Stored (Storage specifiers)

---

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

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

Наверх

Память: 0.48 MB
Время: 0.068 c