Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.12.07;
Скачать: [xml.tar.bz2];

Вниз

Преобразование типа таблицы 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

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


 
MsGuns ©   (2008-10-28 00:09) [9]

>Ega23 ©   (27.10.08 16:48) [3]

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


 
MsGuns ©   (2008-10-28 00:13) [10]

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

GetEnumValue


 
Ega23 ©   (2008-10-28 09:42) [11]


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


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


 
MsGuns ©   (2008-10-28 12:30) [12]

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



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

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

Наверх





Память: 0.46 MB
Время: 0.006 c
2-1225181892
Начинающий92
2008-10-28 11:18
2008.12.07
Сортировка StringList


15-1223229279
TUser
2008-10-05 21:54
2008.12.07
Проспект имени Путина


1-1202807069
БарЛог
2008-02-12 12:04
2008.12.07
Где принтер по умолчанию в реестре?


2-1225095258
Zhekson
2008-10-27 11:14
2008.12.07
MessageDlg, три варианта ответа, да, нет, отмена.


2-1225290334
ViToTiV
2008-10-29 17:25
2008.12.07
Обработка исключений в сервисе





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский