paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 17:47:56 +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:
begin
U:=Args[i].VWideChar;
MsgArgs[i] := U;
MsgArgs[i] := String(U);
end;
vtPWideChar:
begin
U:=Args[i].VPWideChar;
MsgArgs[i] := U;
MsgArgs[i] := String(U);
end;
vtAnsiString:
begin
@ -269,14 +269,14 @@ begin
vtWidestring:
begin
U:=WideString(Args[i].VWideString);
MsgArgs[i] := U;
MsgArgs[i] := String(U);
end;
vtInt64: MsgArgs[i] := IntToStr(Args[i].VInt64^);
vtQWord: MsgArgs[i] := IntToStr(Args[i].VQWord^);
vtUnicodeString:
begin
U:=UnicodeString(Args[i].VUnicodeString);
MsgArgs[i] := U;
MsgArgs[i] := String(U);
end;
end;
{$endif}