Доброе время суток!
Давно не работал с Делфи, все позабывал. :(
Вопрос, собственно, такой:
Можно ли автоматизировать изменение одного поля записи в зависимости от другого. Есть:
type MyRec = record
ValueD: byte;
ValueS: Char;
end;
Так вот, мне надо, чтобы поле ValueS принимало значение ValueD, но в текстовом виде. ValueD может быть в диапазоне 1..9, поэтому Char достаточно.
Это вообще реализуемо?

> Это вообще реализуемо?


Да.

> Да

Информативненько! :)
Пойдем дальше - каким образом?

MyRec = record
Private
lValueS: Char;
lValueD: byte;
procedure AssignValueD(value:byte);
public
property ValueS:char read lValueS;
property ValueD:byte read lValueD write AssignValueD;
end;

{ MyRec }

procedure MyRec.AssignValueD(value: byte);
begin
lValueS:=chr(48+value);
end;

procedure TForm1.FormCreate(Sender: TObject);
var a:MyRec;
begin
a.ValueD:=10;
showmessage(a.ValueS);
end;

:)

procedure MyRec.AssignValueD(value: byte);
begin
lValueD:=value;
lValueS:=chr(48+ValueD);
end;

oxffff
Спасибо огромное!