mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 16:28:22 +02:00
12 lines
208 B
ObjectPascal
12 lines
208 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 3700 }
|
|
{ Submitted by "Roman" on 2005-02-26 }
|
|
{ e-mail: roman@csltd.com.ua }
|
|
uses
|
|
variants;
|
|
var
|
|
v : olevariant;
|
|
b : boolean;
|
|
begin
|
|
b:=VarIsArray(V);
|
|
end.
|