mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 09:18:10 +02:00
19 lines
187 B
ObjectPascal
19 lines
187 B
ObjectPascal
uses
|
|
variants;
|
|
var
|
|
w : widestring;
|
|
v : variant;
|
|
a : ansistring;
|
|
begin
|
|
a:='';
|
|
w:='';
|
|
v:='asdf';
|
|
pos(a,v);
|
|
pos(w,v);
|
|
pos(v,v);
|
|
pos(v,a);
|
|
pos(v,w);
|
|
pos(v,v);
|
|
end.
|
|
|