paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 01:48:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Some improvements/fix based on remarks of Alexey Torgashin

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-10-30 18:15:26 +02:00
parent 446cc62b60
commit 8e3158d965
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/fcl-base/fpmake.pp
View File

@ -137,6 +137,7 @@ begin
P.Sources.AddSrcFiles('src/win/fclel.*', P.Directory);
// Install windows resources
P.InstallFiles.Add('src/win/fclel.res',AllWindowsOSes,'$(unitinstalldir)');
T:=P.Targets.AddUnit('basenenc.pp');
// Examples
P.ExamplePath.Add('examples');

10
packages/fcl-base/src/basenenc.pp
View File

@ -37,7 +37,7 @@ Type
'0123456789ABCDEF',
'ABCDEFGHIJKLMNOPQRSTUVWXYZ234567',
'0123456789ABCDEFGHIJKLMNOPQRSTUV',
'0123456789ABCDEFGHJKMNPQRSTVWZYZ',
'0123456789ABCDEFGHJKMNPQRSTVWXYZ',
'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/',
'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_');
Private
@ -49,7 +49,7 @@ Type
class function GetStdEncoder(AIndex: Integer): TAlphabetEncoder; static;
public
// Construct an encoder with alphabet, bits per letter, padding size in bits
Constructor Create(aAlphabet : AnsiString; aBits : Byte; aPadding : Integer); virtual;
Constructor Create(Const aAlphabet : AnsiString; aBits : Byte; aPadding : Integer); virtual;
// Destroy all standard encoders
Class Destructor Done;
// Create a standard encoder. You must free the result
@ -59,7 +59,7 @@ Type
// Encode data in buffer aBuffer. If doPad is true, add padding if needed.
Function Encode(aBuffer : TBytes; doPad : Boolean = True) : AnsiString; overload;
// Encode data in string aBuffer. If doPad is true, add padding if needed.
Function Encode(aBuffer : AnsiString; doPad : Boolean = True) : AnsiString; overload;
Function Encode(const aBuffer : AnsiString; doPad : Boolean = True) : AnsiString; overload;
// Decode aSrcBuffer with length aLen.
// Buffer must have enough room. Calculate maximum needed room with GetDecodeLen
Function Decode(const aSrcBuffer : PByte; aLen : Integer; ABuffer : PByte) : Integer; virtual; overload;
@ -107,14 +107,14 @@ begin
end;
function TAlphabetEncoder.Encode(aBuffer: AnsiString; doPad : Boolean = True): AnsiString;
function TAlphabetEncoder.Encode(Const aBuffer: AnsiString; doPad : Boolean = True): AnsiString;
begin
Result:=Encode(TEncoding.UTF8.GetAnsiBytes(aBuffer),DoPad);
end;
Constructor TAlphabetEncoder.Create(aAlphabet: AnsiString; aBits: Byte; aPadding: Integer);
Constructor TAlphabetEncoder.Create(const aAlphabet: AnsiString; aBits: Byte; aPadding: Integer);
Var
I : Integer;