Setilcode - ошибка

Комментарии

• VoLT

  December 2009 отредактировано 03:48

  Решил проблему
  

  procedure TForm1.Button1Click(Sender: TObject);
  var
    ScriptStream: TStream;
  begin
    fsScript1.Clear;
    fsScript1.AddRTTI;
    fsScript1.Lines.Text := 'begin ShowMessage(''Hello!'') end.';
    fsScript1.SyntaxType := 'PascalScript';
    ScriptStream := TMemoryStream.Create;
    fsScript1.GetILCode(ScriptStream);
    ScriptStream.Position := 0;
    fsScript1.SetILCode(ScriptStream);
    fsScript1.Execute;
    ScriptStream.Free;
  end;