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

no message

Browse Source
This commit is contained in:
florian 2005-03-10 21:10:08 +00:00
parent a4df8f9124
commit b58b4f29df
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
tests/webtbs/tw3765.pp Normal file
View File

@ -0,0 +1,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.