mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
2929624ffc
a conversion to a shortstring type (so an operator := that returns a
string[255] can be used to assign this type to a string[80]) (mantis
#12109)
* do not allow overloading := with a string[x<>255] as result type,
because we want one such overload to satisfy all conversions (see
previous point)
git-svn-id: trunk@12590 -
20 lines
173 B
ObjectPascal
20 lines
173 B
ObjectPascal
{$mode delphi}
|
|
|
|
Procedure test;
|
|
|
|
Var
|
|
V : Variant;
|
|
SS : String [80];
|
|
|
|
Begin
|
|
V := 'Hello';
|
|
SS := V;
|
|
if (ss<>'Hello') then
|
|
halt(1);
|
|
End;
|
|
|
|
|
|
begin
|
|
test;
|
|
end.
|