paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-05 08:09:49 +01: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; end;
{ Misc. } { Misc. }
{ FIXME !!!!!!!
operator :=(const source : variant) dest : currency; operator :=(const source : variant) dest : currency;
begin begin
dest:=variantmanager.vartocurr(source); dest:=variantmanager.vartocurr(source);
end; end;
(* FIXME !!!
operator :=(const source : variant) dest : tdatetime; operator :=(const source : variant) dest : tdatetime;
begin begin
dest:=variantmanager.currtovar(source);
end; end;
} *)
{********************************************************************** {**********************************************************************
Operators Operators
**********************************************************************} **********************************************************************}
@ -589,7 +587,10 @@ procedure initvariantmanager;
{ {
$Log$ $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 * write helper comproc for variants fixed
Revision 1.13 2003/09/03 14:09:37 florian 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; operator :=(const source : variant) dest : comp;
{ Misc. } { Misc. }
{ Fixme!!!!
operator :=(const source : variant) dest : currency; operator :=(const source : variant) dest : currency;
{ Fixme!!!!
operator :=(const source : variant) dest : tdatetime; operator :=(const source : variant) dest : tdatetime;
} }
{********************************************************************** {**********************************************************************
@ -295,7 +295,10 @@ operator <=(const op1,op2 : variant) dest : boolean;
{ {
$Log$ $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 * fixed some variant issues
* improved type declarations * improved type declarations