mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 10:39:26 +02:00
067a39a7f9
+ variant -> tdatetime implemented + overloaded assignment operator takes care of unique flags git-svn-id: trunk@508 -
29 lines
434 B
ObjectPascal
29 lines
434 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 4093 }
|
|
{ Submitted by "alphax" on 2005-06-16 }
|
|
{ e-mail: acmui_2004@163.com }
|
|
program test_var_dt;
|
|
|
|
{$IFDEF FPC}
|
|
{$MODE OBJFPC}
|
|
{$ENDIF}
|
|
|
|
uses
|
|
SysUtils, Variants;
|
|
|
|
var
|
|
DT: TDateTime;
|
|
S: string;
|
|
V: Variant;
|
|
C: Currency;
|
|
begin
|
|
V := '1.0';
|
|
C := V;
|
|
WriteLn(CurrToStr(C));
|
|
|
|
S := DateTimeToStr(Now());
|
|
V := S;
|
|
writeln(v);
|
|
DT := V;
|
|
WriteLn(DateTimeToStr(DT));
|
|
end.
|