Форум: "Основная";
Текущий архив: 2005.07.31;
Скачать: [xml.tar.bz2];

Вниз

Как достать текстовое значение Enumeration переменной ?   Найти похожие ветки 

← →
ANB ©   (2005-07-12 14:24) [0]

Сделал вот так :

type
TTestReplyCode = (
 trcOk,
 trcUnknowReply, trcBadValue,
 trcUnknowCommand, trcBadParams,
 trcObjectNotFound, trcPropertyNotFound,
 trcInvalidObjectType,
 );
procedure TForm1.Button1Click(Sender: TObject);
var ReplyCode : TTestReplyCode;
   TypeInfo : TTypeInfo;
begin
ReplyCode := trcObjectNotFound;
TypeInfo.Kind := tkEnumeration;
TypeInfo.Name := "TTestReplyCode";
lbCode.Caption := GetEnumName(@TypeInfo, Integer(ReplyCode));
end;

Валится с аксесс виолэйшион.

---

← →
MBo ©   (2005-07-12 14:28) [1]

var ReplyCode : TTestReplyCode;
begin
ReplyCode := trcObjectNotFound;
Caption := GetEnumName(TypeInfo(TTestReplycode), Integer(ReplyCode));

---

← →
ANB ©   (2005-07-12 14:34) [2]

> MBo ©   (12.07.05 14:28) [1]
- спасибо, работает.

---

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

Форум: "Основная";
Текущий архив: 2005.07.31;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.034 c