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

d2009 fixes

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

11
Samples/Import/fMain.pas
View File

@ -85,7 +85,7 @@ begin
end;
end;
function OnNeedFile(Sender: TPSPreProcessor; const callingfilename: string; var FileName, Output: string): Boolean;
function OnNeedFile(Sender: TPSPreProcessor; const callingfilename: AnsiString; var FileName, Output: AnsiString): Boolean;
var
s: string;
begin
@ -100,7 +100,7 @@ begin
Result := False;
end;
function MyOnUses(Sender: TPSPascalCompiler; const Name: string): Boolean;
function MyOnUses(Sender: TPSPascalCompiler; const Name: AnsiString): Boolean;
begin
if Name = 'SYSTEM' then
begin
@ -172,7 +172,7 @@ begin
if i = 0 then Application.ProcessMessages;
end;
function MyExportCheck(Sender: TPSPascalCompiler; Proc: TPSInternalProcedure; const ProcDecl: string): Boolean;
function MyExportCheck(Sender: TPSPascalCompiler; Proc: TPSInternalProcedure; const ProcDecl: AnsiString): Boolean;
begin
Result := True;
end;
@ -183,7 +183,7 @@ var
x1: TPSPascalCompiler;
x2: TPSDebugExec;
xpre: TPSPreProcessor;
s, d: string;
s, d: AnsiString;
procedure Outputtxt(const s: string);
begin
@ -378,7 +378,8 @@ procedure TMainForm.CompileandDisassemble1Click(Sender: TObject);
var
x1: TPSPascalCompiler;
xpre: TPSPreProcessor;
s, s2: string;
s: AnsiString;
s2: string;
procedure OutputMsgs;
var