mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 11:06:19 +02:00
+ length(<variant>);
git-svn-id: trunk@1154 -
This commit is contained in:
parent
7c7ca4b8b6
commit
77db0e5185
@ -1441,6 +1441,11 @@ implementation
|
|||||||
set_varstate(left,vs_used,[vsf_must_be_valid]);
|
set_varstate(left,vs_used,[vsf_must_be_valid]);
|
||||||
|
|
||||||
case left.resulttype.def.deftype of
|
case left.resulttype.def.deftype of
|
||||||
|
variantdef:
|
||||||
|
begin
|
||||||
|
inserttypeconv(left,cansistringtype);
|
||||||
|
end;
|
||||||
|
|
||||||
stringdef :
|
stringdef :
|
||||||
begin
|
begin
|
||||||
{ we don't need string convertions here }
|
{ we don't need string convertions here }
|
||||||
|
Loading…
Reference in New Issue
Block a user