blob: c19ebbafc06aa742ef0a2bd38b406cb5f04eb949 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{ Source provided for Free Pascal Bug Report 3765 }
{ Submitted by "Andrew Haines" on 2005-03-09 }
{ e-mail: andrewd207@aol.com }
program Project1;
{$mode objfpc}{$H+}
uses
Classes, SysUtils;
var
AName, ANumber, ABoolean: Variant;
begin
AName := 'John Smith';
ANumber := 12345;
ABoolean := True;
WriteLn('Name=',AName, ' Number=', ANumber, ' Boolean=',ABoolean);
end.
|
