* locale fixes * bumped version number
@@ -204,6 +204,7 @@ begin
stemId := stem.ID;
result := (System.Length(LocalId) > System.Length(stemId)) and
(LocalId[System.Length(stemId) + 1] = '.') and
+ // should use "StartsStr" here but it seems that is missing in Lazarus/FPC RTL
(AnsiStartsStr(stemId, LocalId));
end;
@@ -166,7 +166,7 @@ begin
continue;
- case AnsiIndexStr(ch, [''' ''', '\', '(', ')', '+', '-', '.', ':', '=', '?',
+ case IndexStr(ch, [''' ''', '\', '(', ')', '+', '-', '.', ':', '=', '?',
'/', ',']) of
0 .. 11:
begin
@@ -4315,7 +4315,7 @@ begin
- Result := AnsiLowerCase(sl.Text);
+ Result := LowerCase(sl.Text);
finally
sl.Free;
@@ -24,7 +24,7 @@
Acknowledgements:
Thanks to Sphere 10 Software (http://sphere10.com) for sponsoring the development of this library "/>
- <Version Major="1" Minor="4"/>
+ <Version Major="1" Minor="5"/>
<Files Count="281">
<Item1>
<Filename Value="..\..\Asn1\ClpAsn1Encodable.pas"/>
@@ -62,11 +62,11 @@ end;
class function TRandomNumberGenerator.CreateRNG(const rngName: String)
: IRandomNumberGenerator;
- if AnsiCompareText(rngName, 'OSRandomNumberGenerator') = 0 then
+ if CompareText(rngName, 'OSRandomNumberGenerator') = 0 then
result := TOSRandomNumberGenerator.Create();
end
- else if AnsiCompareText(rngName, 'PCGRandomNumberGenerator') = 0 then
+ else if CompareText(rngName, 'PCGRandomNumberGenerator') = 0 then
result := TPCGRandomNumberGenerator.Create();