IMetabase.CreateCodeBlock

Синтаксис

CreateCodeBlock: IMetabaseCodeBlock;

Описание

Метод CreateCodeBlock возвращает объект, содержащий код на Fore.

Пример

Sub Main;

Var

Mb : IMetabase;

Blo: IMetabaseCodeBlock;

a: Array;

v: Variant;

Begin

Mb := MetabaseClass.Active;

Blo := Mb.CreateCodeBlock;

Blo.References := "MathFin";

Blo.Text := "Sub M;" + #10 +

"Begin" + #10 +

" Debug.WriteLine(Math.Round(100.959, 2).ToString);" + #10 +

"End Sub M;";

If Blo.Valid Then

v:=Blo.Execute("M",a);

Else

Debug.WriteLine(Blo.ErrorMessage + ". строка " + Blo.Line.ToString+". позиция "+Blo.Position.ToString);

End If;

Dispose Blo;

End Sub Main;

После выполнения примера в переменной «Blo» будет содержаться объект, представляющий собой блок кода на Fore.

См. также:

IMetabase