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

* store widechar as integer rather than as widestring in variants

Browse Source 
(Delphi-compatible)

git-svn-id: trunk@5731 -
This commit is contained in:
Jonas Maebe 2006-12-28 16:17:57 +00:00
parent 64f2b6f48d
commit c839d560ab
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/variant.inc
View File

@ -212,7 +212,7 @@ end;
operator :=(const source : widechar) dest : variant;{$ifdef SYSTEMINLINE}inline;{$endif}
begin
VariantManager.VarFromWStr(Dest,Source);
Variantmanager.varfromInt(Dest,word(Source),2);
end;
{ Strings }
@ -393,13 +393,8 @@ end;
operator :=(const source : variant) dest : widechar;{$ifdef SYSTEMINLINE}inline;{$endif}
Var
WS : WideString;
begin
VariantManager.VarToWStr(WS,Source);
If Length(WS)>0 then
Dest:=WS[1];
dest:=widechar(variantmanager.vartoint(source));
end;