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

* Fix unicodertl compilation

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-11-13 13:14:03 +01:00
parent 6e5860cb87
commit 3c1d50ab72
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/vcl-compat/src/system.ansistrings.pp
View File

@ -468,7 +468,7 @@ end;
function AnsiStartsStr(const ASubText, AText: AnsiString): Boolean;
begin
if (Length(AText) >= Length(ASubText)) and (ASubText <> '') then
Result := StrLComp(PChar(ASubText), PAnsiChar(AText), Length(ASubText)) = 0
Result := StrLComp(PAnsiChar(ASubText), PAnsiChar(AText), Length(ASubText)) = 0
else
Result := (AsubText='');
end;
@ -859,7 +859,7 @@ function FloatToTextFmt(Buf: PAnsiChar; const Value; ValueType: TFloatValue;
Format: PAnsiChar; const AFormatSettings: TFormatSettings): Integer;
Var
E : Extended;
SBuf,Fmt : String;
begin
Case ValueType of
fvComp : E:=PComp(@Value)^;
@ -869,7 +869,9 @@ begin
fvSingle : E:=PSingle(@Value)^;
fvCurrency : E:=PCurrency(@Value)^;
end;
Result:={$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}SysUtils.FloatToTextFmt(Buf,E,Format,aFormatSettings);
SBuf:=StrPas(Buf);
Fmt:=StrPas(Format);
Result:={$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}SysUtils.FloatToTextFmt(PChar(SBuf),E,PChar(Fmt),aFormatSettings);
end;
function FloatToTextFmt(Buf: PAnsiChar; const Value; ValueType: TFloatValue;