Преобразование типа таблицы Ttable в строку

← →
Mozgan (2008-10-27 16:44) [0]

При создании таблицы указывается тип - TTableType = (ttDefault, ttParadox, ttDBase, ttASCII, ttFoxPro);

Как можно перевести одно из значений данного массива в строку?

← →
clickmaker © (2008-10-27 16:47) [1]

uses TypInfo

GetEnumName()

← →
www (2008-10-27 16:47) [2]

IntToStr( Ord( ) )

← →
Ega23 © (2008-10-27 16:48) [3]

function TableTypeToStr(const TableType : TTableType) : string; begin case TableType of ttDefault : Result := "ttDefault"; ttParadox : Result := "ttParadox"; ttDBase : Result := "ttDBase"; ttASCII : Result := "ttASCII"; ttFoxPro : Result := "ttFoxPro"; else Result := ""; end; end;

← →
Mozgan (2008-10-27 17:02) [4]

Ega, я немного не догоняю. Как это использовать?

← →
Amoeba © (2008-10-27 17:09) [5]

> Mozgan (27.10.08 17:02) [4]
>
> Как это использовать?

Каком кверху!

← →
www (2008-10-27 18:07) [6]

> Как это использовать?

подсунуть в функцию нужное поле твоего класса таблицы
высунуть - текст с описанием

← →
Mozgan (2008-10-27 21:54) [7]

Уважаемые мастера!

Приношу свои извинения - я НЕ ПРАВИЛЬНО ЗАДАЛ ВОПРОС!!!!
В вопросе[1] нужно наоборот - преобразовать строку к типу TTable.
Прошу прощения!

Как можно перевернуть функцию, которую предложил Ega23 ?

← →
www (2008-10-27 22:39) [8]

> преобразовать строку к типу TTable

это несовместимые типы

>Mozgan (27.10.08 21:54) [7]
>Как можно перевернуть функцию, которую предложил Ega23 ?

GetEnumValue

> Ты [1] читал ? Об RTTI слышал ?
> А если и читал, и слышал, зашем чмуху пишешь ?

Ну слыхал. Ну слышал. Ну использовал.
Ты действительно думаешь, что автору [1] поможет?

Ему поможет TypInfo + GetEnumXXX + F1
Ну и мозги собственные, конечно

Преобразование типа таблицы Ttable в строку Найти похожие ветки