unit1.pl

来自「一个可以制作出和DELPHI很接近的IDE的好控健。只是稍微老了点。」· PL 代码 · 共 7 行

#USEUNIT dcscript
#USEUNIT StdCtrls
sub Button1Click # Sender
{
$Form1->DCScripter1->Script->Assign($Form1->Memo1->Lines);
$Form1->DCScripter1->CallNoParamsMethod("script");
}