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

+ currency type can be assigned to variants now

Browse Source
This commit is contained in:
florian 2003-11-05 15:26:37 +00:00
parent 094ab8b446
commit d97aa2e973
2 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/inc/variant.inc
View File

@ -419,21 +419,19 @@ begin
end;
{ Misc. }
{ FIXME !!!!!!!
operator :=(const source : variant) dest : currency;
begin
dest:=variantmanager.vartocurr(source);
end;
(* FIXME !!!
operator :=(const source : variant) dest : tdatetime;
begin
dest:=variantmanager.currtovar(source);
end;
}
*)
{**********************************************************************
Operators
**********************************************************************}
@ -589,7 +587,10 @@ procedure initvariantmanager;
{
$Log$
Revision 1.14 2003-10-04 23:40:42 florian
Revision 1.15 2003-11-05 15:26:37 florian
+ currency type can be assigned to variants now
Revision 1.14 2003/10/04 23:40:42 florian
* write helper comproc for variants fixed
Revision 1.13 2003/09/03 14:09:37 florian

7
rtl/inc/varianth.inc
View File

@ -265,8 +265,8 @@ operator :=(const source : variant) dest : extended;
operator :=(const source : variant) dest : comp;
{ Misc. }
{ Fixme!!!!
operator :=(const source : variant) dest : currency;
{ Fixme!!!!
operator :=(const source : variant) dest : tdatetime;
}
{**********************************************************************
@ -295,7 +295,10 @@ operator <=(const op1,op2 : variant) dest : boolean;
{
$Log$
Revision 1.13 2003-10-08 16:24:47 florian
Revision 1.14 2003-11-05 15:26:37 florian
+ currency type can be assigned to variants now
Revision 1.13 2003/10/08 16:24:47 florian
* fixed some variant issues
* improved type declarations