paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 22:29:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

* some variant <-> string types fixes

Browse Source
This commit is contained in:
florian 2005-03-28 20:36:14 +00:00
parent 59ce7b59da
commit 0997316960
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/objpas/cvarutil.inc
View File

@ -447,8 +447,8 @@ begin
VarInt64 : Result:=IntToStr(VInt64);
VarQword : Result:=IntToStr(VQWord);
VarString : Result:=ansistring(VString);
else
VariantTypeMismatch;
else
VariantTypeMismatch;
end;
except
On EConvertError do
@ -588,7 +588,10 @@ end;
{
$Log$
Revision 1.12 2005-03-10 21:05:36 florian
Revision 1.13 2005-03-28 20:36:14 florian
* some variant <-> string types fixes
Revision 1.12 2005/03/10 21:05:36 florian
+ writing of variants implemented
Revision 1.11 2005/02/14 17:13:31 peter