| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Преобразование типа таблицы Ttable в строку [D7, XP]
Mozgan © (2008-10-27 16:44:00)При создании таблицы указывается тип - TTableType = (ttDefault, ttParadox, ttDBase, ttASCII, ttFoxPro);
Как можно перевести одно из значений данного массива в строку?
MsGuns (2008-10-28 12:30:00) [1]Ему поможет TypInfo + GetEnumXXX + F1
Ну и мозги собственные, конечно
Ega23 (2008-10-28 09:42:00) [2]
> Ты [1] читал ? Об RTTI слышал ?
> А если и читал, и слышал, зашем чмуху пишешь ?
Ну слыхал. Ну слышал. Ну использовал.
Ты действительно думаешь, что автору [1] поможет?
MsGuns (2008-10-28 00:13:00) [3]>Mozgan (27.10.08 21:54) [7]
>Как можно перевернуть функцию, которую предложил Ega23 ?
GetEnumValue
MsGuns (2008-10-28 00:09:00) [4]>Ega23 © (27.10.08 16:48) [3]
Ты [1] читал ? Об RTTI слышал ?
А если и читал, и слышал, зашем чмуху пишешь ?
www (2008-10-27 22:39:00) [5]
> преобразовать строку к типу TTable
это несовместимые типы
Mozgan (2008-10-27 21:54:00) [6]Уважаемые мастера!
Приношу свои извинения - я НЕ ПРАВИЛЬНО ЗАДАЛ ВОПРОС!!!!
В вопросе[1] нужно наоборот - преобразовать строку к типу TTable.
Прошу прощения!
Как можно перевернуть функцию, которую предложил Ega23 ?
www (2008-10-27 18:07:00) [7]
> Как это использовать?
подсунуть в функцию нужное поле твоего класса таблицы
высунуть - текст с описанием
Amoeba (2008-10-27 17:09:00) [8]
> Mozgan (27.10.08 17:02) [4]
>
> Как это использовать?
Каком кверху!
Mozgan (2008-10-27 17:02:00) [9]Ega, я немного не догоняю. Как это использовать?
Ega23 (2008-10-27 16:48:00) [10]
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;
clickmaker (2008-10-27 16:47:00) [11]uses TypInfo
GetEnumName()
www (2008-10-27 16:47:00) [12]IntToStr( Ord( ) )
| |
