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