Delphi/pascalscript
Delphi/pascalscript
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

< d2009 sample fixes

Browse Source 
git-svn-id: http://code.remobjects.com/svn/pascalscript@169 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
This commit is contained in:
carlokok 2009-09-10 11:47:37 +00:00
parent d7c075f6a6
commit 71e743ff03
7 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Samples/Console/sample2.dpr
View File

@ -45,7 +45,7 @@ var
Exec: TPSExec;
{ TPSExec is the executer part of the scriptengine. It uses the output of
the compiler to run a script. }
{$IFDEF UNICODE}Data: AnsiString;{$ELSE}Data: string{$ENDIF}
{$IFDEF UNICODE}Data: AnsiString;{$ELSE}Data: string;{$ENDIF}
begin
Compiler := TPSPascalCompiler.Create; // create an instance of the compiler.
Compiler.OnUses := ScriptOnUses; // assign the OnUses event.

2
Samples/Console/sample3.dpr
View File

@ -42,7 +42,7 @@ var
Exec: TPSExec;
{ TPSExec is the executer part of the scriptengine. It uses the output of
the compiler to run a script. }
{$IFDEF UNICODE}Data: AnsiString;{$ELSE}Data: string{$ENDIF}
{$IFDEF UNICODE}Data: AnsiString;{$ELSE}Data: string;{$ENDIF}
begin
Compiler := TPSPascalCompiler.Create; // create an instance of the compiler.
Compiler.OnUses := ScriptOnUses; // assign the OnUses event.

2
Samples/Console/sample4.dpr
View File

@ -58,7 +58,7 @@ var
Exec: TPSExec;
{ TPSExec is the executer part of the scriptengine. It uses the output of
the compiler to run a script. }
{$IFDEF UNICODE}Data: AnsiString;{$ELSE}Data: string{$ENDIF}
{$IFDEF UNICODE}Data: AnsiString;{$ELSE}Data: string;{$ENDIF}
i: Integer;
CI: TPSRuntimeClassImporter;
begin

2
Samples/Console/sample5.dpr
View File

@ -60,7 +60,7 @@ var
Exec: TPSExec;
{ TPSExec is the executer part of the scriptengine. It uses the output of
the compiler to run a script. }
{$IFDEF UNICODE}Data: AnsiString;{$ELSE}Data: string{$ENDIF}
{$IFDEF UNICODE}Data: AnsiString;{$ELSE}Data: string;{$ENDIF}
CI: TPSRuntimeClassImporter;
begin
Compiler := TPSPascalCompiler.Create; // create an instance of the compiler.

2
Samples/Console/sample6.dpr
View File

@ -71,7 +71,7 @@ var
Exec: TPSExec;
{ TPSExec is the executer part of the scriptengine. It uses the output of
the compiler to run a script. }
{$IFDEF UNICODE}Data: AnsiString;{$ELSE}Data: string{$ENDIF}
{$IFDEF UNICODE}Data: AnsiString;{$ELSE}Data: string;{$ENDIF}
N: PIfVariant;
{ The variant in which we are going to store the parameter }

2
Samples/Console/sample7.dpr
View File

@ -81,7 +81,7 @@ var
Exec: TPSExec;
{ TPSExec is the executer part of the scriptengine. It uses the output of
the compiler to run a script. }
{$IFDEF UNICODE}Data: AnsiString;{$ELSE}Data: string{$ENDIF}
{$IFDEF UNICODE}Data: AnsiString;{$ELSE}Data: string;{$ENDIF}
N: PIfVariant;
{ The variant in which we are going to store the parameter }

2
Samples/Console/sample8.dpr
View File

@ -78,7 +78,7 @@ var
Exec: TPSExec;
{ TPSExec is the executer part of the scriptengine. It uses the output of
the compiler to run a script. }
{$IFDEF UNICODE}Data: AnsiString;{$ELSE}Data: string{$ENDIF}
{$IFDEF UNICODE}Data: AnsiString;{$ELSE}Data: string;{$ENDIF}
TestFunc: TTestFunction;
begin