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

Delphi 2009 fix

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

2
Samples/Console/sample6.dpr
View File

@ -31,7 +31,7 @@ function ScriptOnExportCheck(Sender: TPSPascalCompiler; Proc: TPSInternalProcedu
begin begin
if Proc.Name = 'TEST' then // Check if the proc is the Test proc we want. if Proc.Name = 'TEST' then // Check if the proc is the Test proc we want.
begin begin
if not ExportCheck(Sender, Proc, [0, btString], [pmIn]) then // Check if the proc has the correct params. if not ExportCheck(Sender, Proc, [0, {$IFDEF UNICODE}btUnicodeString{$ELSE}btString{$ENDIF}], [pmIn]) then // Check if the proc has the correct params.
begin begin
{ Something is wrong, so cause an error at the declaration position of the proc. } { Something is wrong, so cause an error at the declaration position of the proc. }
Sender.MakeError('', ecTypeMismatch, ''); Sender.MakeError('', ecTypeMismatch, '');

2
Samples/Console/sample8.dpr
View File

@ -32,7 +32,7 @@ function ScriptOnExportCheck(Sender: TPSPascalCompiler; Proc: TPSInternalProcedu
begin begin
if Proc.Name = 'TEST' then // Check if the proc is the Test proc we want. if Proc.Name = 'TEST' then // Check if the proc is the Test proc we want.
begin begin
if not ExportCheck(Sender, Proc, [btString, btString], [pmIn]) then // Check if the proc has the correct params. if not ExportCheck(Sender, Proc, {$IFDEF UNICODE}[btUnicodeString, btUnicodeString]{$ELSE}[btString, btString]{$ENDIF}, [pmIn]) then // Check if the proc has the correct params.
begin begin
{ Something is wrong, so cause an error. } { Something is wrong, so cause an error. }
Sender.MakeError('', ecTypeMismatch, ''); Sender.MakeError('', ecTypeMismatch, '');