mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 07:09:29 +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]);
|
||||
|
||||
case left.resulttype.def.deftype of
|
||||
variantdef:
|
||||
begin
|
||||
inserttypeconv(left,cansistringtype);
|
||||
end;
|
||||
|
||||
stringdef :
|
||||
begin
|
||||
{ we don't need string convertions here }
|
||||
|
Loading…
Reference in New Issue
Block a user