afe3fdfd77
git-svn-id: http://code.remobjects.com/svn/pascalscript@1 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
14 lines
273 B
Plaintext
14 lines
273 B
Plaintext
Program IFSTest;
|
|
var
|
|
e: variant;
|
|
Begin
|
|
e := null;
|
|
case VarType(e) of
|
|
varempty :writeln('unassigned');
|
|
varNull: Writeln('null');
|
|
varstring: Writeln('String');
|
|
varInteger : writeln('VarInteger');
|
|
varSingle: Writeln('Single');
|
|
varDouble: Writeln('Double');
|
|
end;
|
|
End. |