Запустить строчку как код.

[Dj_smart]

Доброго времени суток!
У меня вопрос: а возможно ли запустить строчку как код? Например:

a:='showmessage('Привет');'
runusstrochka(a); // знать бы команду

Чтобы оно в результате показало сообщение "Привет".

[WOLFak]

я тоже так хочу) я создам 2 ой делфи)

[mihali4]

Напишете свой интерпретатор - и будете запускать...
Стандартные средства Дельфи такие извращения не поддерживают.

[merax]

Самое безумно то, что такое возможно !!! И без всяких интерпретаторов !!!

Нужен всего лишь массив с байт-кодом на ассембрере и точка входа.

Сообщение от mihali4

Стандартные средства Дельфи такие извращения не поддерживают.

Еще как поддерживаю. Надо импровизировать. Такое проворачивалось на C# который ассемблер вообще не держит.

[alexBlack]

Как один из вариантов (это обычный unit, не dll):

procedure test1; export;
begin
   showmessage('test1');
end;

procedure test2; export;
begin
   showmessage('test2');
end;

type
   TProc = procedure;

procedure runString(S:String);
var P:TProc;
begin
   P := getProcAddress(GetModuleHandle('Application.Name'), Pointer(S));
   if @P <> nil then P;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   runString('test1');
   runString('test2');
end;

exports test1;
exports test2;

Синтаксический анализатор все-таки потребуется для обработки параметров. merax прав - импровизируем.

[mutabor]

Способ интересный, но по сути он ничем не отличается допустим от такого:

procedure RunString(s: string);
begin
if s = 'ShowMessage('Привет')' then ShowMessage('Привет');
end;

То есть сначала пишем код (неважно где и как), а потом его вызываем. И вовсе необязательно ShowMessage писать, можно и так: АНуКаПокажи(Привет) ничего от этого не изменится.

Так что Михалыч прав.

[mihali4]

if s = 'ShowMessage('Привет')' then ShowMessage('Привет');

Это и есть наипростейший интерпретатор.

[Dj_smart]

if s = 'ShowMessage('Привет')' then ShowMessage('Привет');

А если так? Запустите такое:

'ShowMessage('Привет Вася, как дела? У меня '+ inttostr(round(sqr(pi*180)/22)+' . Ответь');

Как это обработать?

[mutabor]

Все так же, только е...тни больше.

[Dj_smart]

Я вот написал чтото типа кампилятора, распознает около 20-ти команд. А как сделать, чтобы он читал не 2(у меня max) а больше пераметров?