выполнения кода из label.Caption

[Giku]

извиняюсь это тема (или подобная) уже была но мне не помогла

как при нажатия кнопки выполнить определенную запись как код делфи???

[phomm]

if Pos(AnsiUpperCase('mycoolprocedure'),edit1.text) > 0 
 then mycoolprocedure;

(EDIT ой что-то я не правильно проставил AnsiUpperСase, надо бы и едиттекст апперкейсить, чтобы независимо от регистра букв была проверка)

примерно так, естественно, нужно создать такую процедуру чтобы её вызвать

ну и стандартная фраза )) какой вопрос - такой ответ

[Giku]

извиняюсь за поставленный вопрос (я совсем новичок в этом деле)

спасибо за ответ буду знать куда идти.

[Giku]

я так понимаю что mycoolprocedure это и есть та процедура которая выполняет код из edit1.text ?

как мне ее создать? (где можно почитать о ней?)

[Аватар]

выполняет код из edit1.text

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

[NetSpace]

у вас уже должны быть написаны и объявлены процедуры, которые будут выполняться, если что-то подобное найдётся в строке символов.

procedure TForm1.Sum;
begin...end;

procedure TForm1.Add;
begin...end;

procedure TForm1.Rew;
begin...end;

procedure TForm1.Button1Click(Sender:TObject);
begin
   if(0<Pos(sum,Edit1.Text))then sum;
   if(0<Pos(add,Edit1.Text))then add;
   if(0<Pos(rew,Edit1.Text))then rew;
end;

[Giku]

Сообщение от Аватар

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

а как это сделать? реально вообще ?

[Giku]

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

у вас уже должны быть написаны и объявлены процедуры, которые будут выполняться, если что-то подобное найдётся в строке символов.

procedure TForm1.Sum;
begin...end;

procedure TForm1.Add;
begin...end;

procedure TForm1.Rew;
begin...end;

procedure TForm1.Button1Click(Sender:TObject);
begin
   if(0<Pos(sum,Edit1.Text))then sum;
   if(0<Pos(add,Edit1.Text))then add;
   if(0<Pos(rew,Edit1.Text))then rew;
end;

понятно)

спасибо всем