fpc/tests/webtbs/tw3765.pp
2005-03-10 21:10:08 +00:00

18 lines
383 B
ObjectPascal

{ 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.