paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 20:29:23 +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} operator :=(const source : widechar) dest : variant;{$ifdef SYSTEMINLINE}inline;{$endif}
begin begin
VariantManager.VarFromWStr(Dest,Source); Variantmanager.varfromInt(Dest,word(Source),2);
end; end;
{ Strings } { Strings }
@ -393,13 +393,8 @@ end;
operator :=(const source : variant) dest : widechar;{$ifdef SYSTEMINLINE}inline;{$endif} operator :=(const source : variant) dest : widechar;{$ifdef SYSTEMINLINE}inline;{$endif}
Var
WS : WideString;
begin begin
VariantManager.VarToWStr(WS,Source); dest:=widechar(variantmanager.vartoint(source));
If Length(WS)>0 then
Dest:=WS[1];
end; end;