// This script not working !
// Arrays as parameters not supported now....
// Sorry....
unit cray;
function main: string;
var
A: array[1..10] of integer;
begin
InitArray(A);
//Resul
unit Unit1;
procedure main;
var
i: Integer;
begin
for i := 1 to 100000 do
begin
func(i);
end;
end;
procedure func(i: Integer);
var
v1: Integer;
v2: Integer;
v3: Int
program JvInterpreterTest;
uses
Forms,
fJvInterpreterTest in 'fJvInterpreterTest.pas' {Test};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TTest, Test);
Appl
program ColorHintsTest;
uses
Forms,
RaHtHintsMainFormU in 'RaHtHintsMainFormU.pas' {RaHtHintsMainForm};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TRaHtHintsM
