paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 23:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix compilation in unicode RTL

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-03-19 10:38:59 +01:00
parent c52794f943
commit 628e0cdbd1
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/chm/src/chmcmd.lpr
View File

@ -111,7 +111,7 @@ var
alloweddetaillevel : integer = 0; // show if msg.detaillevel<=allowdetaillevel alloweddetaillevel : integer = 0; // show if msg.detaillevel<=allowdetaillevel
htmlscan : THtmlScanEnum = Scandefault; htmlscan : THtmlScanEnum = Scandefault;
procedure OnError (Project: TChmProject;errorkind:TChmProjectErrorKind;msg:String;detailevel:integer=0); procedure OnError (Project: TChmProject;errorkind:TChmProjectErrorKind;msg:rtlString;detailevel:integer=0);
begin begin
if (detailevel<=alloweddetaillevel) or (errorkind < chmnote) then if (detailevel<=alloweddetaillevel) or (errorkind < chmnote) then
if errorkind<>chmnone then if errorkind<>chmnone then

8
packages/chm/src/chmls.lpr
View File

@ -49,14 +49,14 @@ type
count : integer; count : integer;
donotpage: boolean; donotpage: boolean;
nameonly : boolean; nameonly : boolean;
procedure OnFileEntry(Name: String; Offset, UncompressedSize, ASection: Integer); procedure OnFileEntry(Name: RTLString; Offset, UncompressedSize, ASection: Integer);
end; end;
TExtractAllObject = class TExtractAllObject = class
basedir : string; basedir : string;
r : TChmReader; r : TChmReader;
lastone_was_point : boolean; lastone_was_point : boolean;
procedure OnFileEntry(Name: String; Offset, UncompressedSize, ASection: Integer); procedure OnFileEntry(Name: RTLString; Offset, UncompressedSize, ASection: Integer);
end; end;
Type Type
@ -197,7 +197,7 @@ end;
var donotshowoffset : boolean=false; var donotshowoffset : boolean=false;
procedure TListObject.OnFileEntry(Name: String; Offset, UncompressedSize, procedure TListObject.OnFileEntry(Name: RTLString; Offset, UncompressedSize,
ASection: Integer); ASection: Integer);
begin begin
Inc(Count); Inc(Count);
@ -225,7 +225,7 @@ begin
WriteLn(Name); WriteLn(Name);
end; end;
procedure TExtractAllObject.OnFileEntry(Name: String; Offset, UncompressedSize, procedure TExtractAllObject.OnFileEntry(Name: RTLString; Offset, UncompressedSize,
ASection: Integer); ASection: Integer);
var mem : TMemoryStream; var mem : TMemoryStream;
s : String; s : String;