unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, PaxProgram, PaxCompiler, StdCtrls, PaxRunner;type
TForm1 = class(TForm)
Button1: TButton;
PaxCompiler1: TPaxCompiler;
PaxPascalLanguage1: TPaxPascalLanguage;
PaxProgram1: TPaxProgram;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TDynArraya = array of String ;
var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
H_range,H_S,i: Integer;
tmeps,me:STRING;
TDynArray:TDynArraya;
begin
SetLength(TDynArray,2);
me:='';
tmeps:='TDynArray[0]:='+'''nihAAoa!''';
PaxCompiler1.Reset;
PaxCompiler1.RegisterLanguage(PaxPascalLanguage1);
H_range:=PaxCompiler1.RegisterVariable(0,'TDynArray',24);
H_S:=PaxCompiler1.RegisterDynamicArrayType(0,'TDynArray',24);
//H_range := PaxCompiler1.RegisterVariable(0, 'TDynArray', H_S, @TDynArray);//H_S:=PaxCompiler1.RegisterVariable(0,'me',5);
PaxCompiler1.AddModule('1', PaxPascalLanguage1.LanguageName); //添加PAX模块
//PaxCompiler1.AddCode('1', 'var TDynArray: TDynArraya;'); //添加代码
PaxCompiler1.AddCode('1', 'begin');
PaxCompiler1.AddCode('1',tmeps); PaxCompiler1.AddCode('1', 'end.'); if PaxCompiler1.Compile(PaxProgram1) then
begin
PaxProgram1.Run;
showmessage(TDynArray[0]);
end
else
for I:=0 to PaxCompiler1.ErrorCount do
ShowMessage(PaxCompiler1.ErrorMessage[I]);
end;
end.试了N次,都搞不懂怎么注册和调用数组及动态数组。有懂的朋友望指点下。
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, PaxProgram, PaxCompiler, StdCtrls, PaxRunner;type
TForm1 = class(TForm)
Button1: TButton;
PaxCompiler1: TPaxCompiler;
PaxPascalLanguage1: TPaxPascalLanguage;
PaxProgram1: TPaxProgram;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TDynArraya = array of String ;
var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
H_range,H_S,i: Integer;
tmeps,me:STRING;
TDynArray:TDynArraya;
begin
SetLength(TDynArray,2);
me:='';
tmeps:='TDynArray[0]:='+'''nihAAoa!''';
PaxCompiler1.Reset;
PaxCompiler1.RegisterLanguage(PaxPascalLanguage1);
H_range:=PaxCompiler1.RegisterVariable(0,'TDynArray',24);
H_S:=PaxCompiler1.RegisterDynamicArrayType(0,'TDynArray',24);
//H_range := PaxCompiler1.RegisterVariable(0, 'TDynArray', H_S, @TDynArray);//H_S:=PaxCompiler1.RegisterVariable(0,'me',5);
PaxCompiler1.AddModule('1', PaxPascalLanguage1.LanguageName); //添加PAX模块
//PaxCompiler1.AddCode('1', 'var TDynArray: TDynArraya;'); //添加代码
PaxCompiler1.AddCode('1', 'begin');
PaxCompiler1.AddCode('1',tmeps); PaxCompiler1.AddCode('1', 'end.'); if PaxCompiler1.Compile(PaxProgram1) then
begin
PaxProgram1.Run;
showmessage(TDynArray[0]);
end
else
for I:=0 to PaxCompiler1.ErrorCount do
ShowMessage(PaxCompiler1.ErrorMessage[I]);
end;
end.试了N次,都搞不懂怎么注册和调用数组及动态数组。有懂的朋友望指点下。
解决方案 »
- 找3DSmax激活码
- 請問關於SQL server數據庫操作~
- 一百分求网络间传文件的源码!
- 请看:http://expert.csdn.net/Expert/topic/303/303953.xml?temp=.821377
- 这个东西我搞不定,不爽呀,帮我搞定,给分!!!!! 不够再开贴加
- 谁能够给一个client向server 传输文件的例子:
- 谁有把mp3或wav转换成wma的控件?可以考虑出RMB购买,价格面谈(Email 或 OICQ)
- 请问如何改变Application对象创建的隐藏窗口的窗口过程?
- 我在MDI窗体右边放一个panel,想让子窗体和左边一样大,下面代码不行。
- 求答:VC++转成DELPHI??
- delphi从数据库读取出数据赋值给stringgrid速度慢
- 动态设置选择的字段然后执行SQL命令技巧求解
var
H_range, H_S, i: Integer;
tmeps, me: string;
TDynArray: TDynArraya;
begin
SetLength(TDynArray, 2);
TDynArray[0] := 'hello in delphi';
me := 'SetLength(TDynArray, 2);';
tmeps := 'TDynArray[0]:= ''Hello in script'';';
PaxCompiler1.Reset;
PaxCompiler1.RegisterLanguage(PaxPascalLanguage1);
H_S := PaxCompiler1.RegisterDynamicArrayType(0, 'TDynArraya', __typeSTRING);
H_range := PaxCompiler1.RegisterVariable(0, 'TDynArray', PaxCompiler1.LookupTypeId('TDynArraya'), @TDynArray);
PaxCompiler1.AddModule('1', PaxPascalLanguage1.LanguageName); //添加PAX模块 PaxCompiler1.AddCode('1', 'begin');
PaxCompiler1.AddCode('1', tmeps);
PaxCompiler1.AddCode('1', 'end.');
if PaxCompiler1.Compile(PaxProgram1) then
begin showmessage('执行前' + (TDynArray[0]));
PaxProgram1.Run;
showmessage('执行后' + (TDynArray[0]));
end
else
for I := 0 to PaxCompiler1.ErrorCount - 1 do
ShowMessage('错误信息' + PaxCompiler1.ErrorMessage[I]);
end;