Как вставить стиль шрифта через переменную

[Тоба]

Доброго времени суток!

Memo1.Font.Style := [fsBold,fsItalic];
Но надо не напрямую, а через переменную

procedure TForm1.Button2Click(Sender: TObject);
var
Data : string;
begin
 Data := 'fsBold,fsItalic';
 Memo1.Font.Style := [TFontStyle(Data)]; // как то так 
end;

Как правильно сделать?

[Аватар]

var FontStyles: TFontStyles;

FontStyles:=[];
if Pos('fsBold',Data)>0 then FontStyles:=FontStyles+[fsBold];
if Pos('fsItalic',Data)>0 then FontStyles:=FontStyles+[fsItalic];
Memo1.Font.Style:=FontStyles;

Только в жизни бы не задавал стиль в символьной переменной

[Тоба]

Аватар, Большое спасибо !

[Тоба]

И ещё вопрос немного не в тему - прошу прощения у админов.
а возможно-ли провернуть следующее:
можно-ли каким-нибудь способом вставить функцию через переменную

var
 str_dc : string;
 dc : HDC;
begin
str_dc :='GetDC(0)';   //  К ПРИМЕРУ'
dc := str_dc  // как совместить типы перем...

[phomm]

Подозрение на XYZ

Вы явно что-то городите, лучше пересмотреть Ваши подходы, опишите проблему конкретнее (не то, как Вы думаете её НАДО решать, а её саму), поразмыслим.

Ну, а навскидку можно сделать ассоциативный массив (см вики) из пар строка-указатель на функцию, но чтобы им пользоваться его надо будет заполнить, а если ещё аргументы передавать, то вообще морока будет.

Есть ещё вот такая хитрая темка http://programmersforum.ru/showpost....20&postcount=8 (вы б тоже её увидели если бы пользовались поиском прежде, чем задать вопрос), но для Вас будет сложновато мутить методы классов.

Ну и советую Вам попросить модератора выделить в отдельную тему, ибо правила.

[Тоба]

Модераторы, если сочтёте нужным - перенесите топики в отдельную тему.

Замышлялся плагин для другой проги для прямого доступа к APIшным функциям
Пользователь вводит имя библы (не проблема), тип функции(не проблема) ну и саму функцию(тут засада), дальше LoadLibrary...