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

fcl-css: less hints

Browse Source
This commit is contained in:
mattias 2023-11-05 15:56:52 +01:00
parent be68d66137
commit b41a0be550
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-css/src/fpcssscanner.pp
View File

@ -251,12 +251,12 @@ begin
vtWideChar: vtWideChar:
begin begin
U:=Args[i].VWideChar; U:=Args[i].VWideChar;
MsgArgs[i] := U; MsgArgs[i] := String(U);
end; end;
vtPWideChar: vtPWideChar:
begin begin
U:=Args[i].VPWideChar; U:=Args[i].VPWideChar;
MsgArgs[i] := U; MsgArgs[i] := String(U);
end; end;
vtAnsiString: vtAnsiString:
begin begin
@ -269,14 +269,14 @@ begin
vtWidestring: vtWidestring:
begin begin
U:=WideString(Args[i].VWideString); U:=WideString(Args[i].VWideString);
MsgArgs[i] := U; MsgArgs[i] := String(U);
end; end;
vtInt64: MsgArgs[i] := IntToStr(Args[i].VInt64^); vtInt64: MsgArgs[i] := IntToStr(Args[i].VInt64^);
vtQWord: MsgArgs[i] := IntToStr(Args[i].VQWord^); vtQWord: MsgArgs[i] := IntToStr(Args[i].VQWord^);
vtUnicodeString: vtUnicodeString:
begin begin
U:=UnicodeString(Args[i].VUnicodeString); U:=UnicodeString(Args[i].VUnicodeString);
MsgArgs[i] := U; MsgArgs[i] := String(U);
end; end;
end; end;
{$endif} {$endif}