IMetabase.CreateCodeBlock

Копировать пример

Sub UserProc;
Var
    Mb: IMetabase;
    Block: IMetabaseCodeBlock;
    a: Array;
    v: Variant;
Begin
    Mb := MetabaseClass.Active;
    Block := Mb.CreateCodeBlock;
    Block.References := "MathFin";
    Block.Text := "Sub M;" + #10 +
        "Begin" + #10 +
        " Debug.WriteLine(Math.Round(100.959, 2).ToString);" + #10 +
        "End Sub M;" ;
    If Block.Valid Then
        v := Block.Execute("M", a);
    Else
        Debug.WriteLine(Block.ErrorMessage + ". строка " + Block.Line.ToString + ". позиция " + Block.Position.ToString);
    End If;
    Dispose Block;
End Sub UserProc;