mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 16:28:45 +02:00
3597696e98
+ added tests The following rules for using these operator overloads as *implicit* overloads apply (Delphi compatible): - if a found assignment operator returns a default ShortString then that is used - if only one assignment operator to a String[x] is found then that is used - otherwise the assignment is not possible The explicit assignment checks for an exact match (and falls back for an implicit assignment). This is not entirely Delphi compatible as Delphi seems to favor the first found symbol in that case, but sometimes also not... :/ git-svn-id: trunk@47634 -
105 lines
2.2 KiB
ObjectPascal
105 lines
2.2 KiB
ObjectPascal
program toperator91;
|
|
|
|
{$mode delphi}
|
|
|
|
type
|
|
TString80 = String[80];
|
|
TString90 = String[90];
|
|
TString40 = String[40];
|
|
TString100 = String[100];
|
|
|
|
TTest = record
|
|
class operator Explicit(const aArg: TTest): TString80;
|
|
class operator Explicit(const aArg: TTest): TString90;
|
|
class operator Explicit(const aArg: TTest): ShortString;
|
|
class operator Implicit(const aArg: TTest): TString80;
|
|
class operator Implicit(const aArg: TTest): TString90;
|
|
class operator Implicit(const aArg: TTest): ShortString;
|
|
end;
|
|
|
|
var
|
|
ExplicitString80: LongInt;
|
|
ExplicitString90: LongInt;
|
|
ExplicitShortString: LongInt;
|
|
ImplicitString80: LongInt;
|
|
ImplicitString90: LongInt;
|
|
ImplicitShortString: LongInt;
|
|
|
|
class operator TTest.Explicit(const aArg: TTest): TString80;
|
|
begin
|
|
Writeln('TString80 Explicit');
|
|
Inc(ExplicitString80);
|
|
Result := '';
|
|
end;
|
|
|
|
class operator TTest.Explicit(const aArg: TTest): TString90;
|
|
begin
|
|
Writeln('TString90 Explicit');
|
|
Inc(ExplicitString90);
|
|
Result := '';
|
|
end;
|
|
|
|
class operator TTest.Explicit(const aArg: TTest): ShortString;
|
|
begin
|
|
Writeln('ShortString Explicit');
|
|
Inc(ExplicitShortString);
|
|
Result := '';
|
|
end;
|
|
|
|
class operator TTest.Implicit(const aArg: TTest): TString80;
|
|
begin
|
|
Writeln('TString80 Implicit');
|
|
Inc(ImplicitString80);
|
|
Result := '';
|
|
end;
|
|
|
|
class operator TTest.Implicit(const aArg: TTest): TString90;
|
|
begin
|
|
Writeln('TString90 Implicit');
|
|
Inc(ImplicitString90);
|
|
Result := '';
|
|
end;
|
|
|
|
class operator TTest.Implicit(const aArg: TTest): ShortString;
|
|
begin
|
|
Writeln('ShortString Implicit');
|
|
Inc(ImplicitShortString);
|
|
Result := '';
|
|
end;
|
|
|
|
var
|
|
s80: TString80;
|
|
s90: TString90;
|
|
s40: TString40;
|
|
s100: TString100;
|
|
t: TTest;
|
|
begin
|
|
// Explicit
|
|
s80 := TString80(t);
|
|
if ExplicitString80 <> 1 then
|
|
Halt(1);
|
|
s90 := TString90(t);
|
|
if ExplicitString90 <> 1 then
|
|
Halt(2);
|
|
s40 := TString40(t);
|
|
if ImplicitShortString <> 1 then
|
|
Halt(3);
|
|
s100 := TString100(t);
|
|
if ImplicitShortString <> 2 then
|
|
Halt(4);
|
|
// Implicit
|
|
s80 := t;
|
|
if ImplicitShortString <> 3 then
|
|
Halt(5);
|
|
s90 := t;
|
|
if ImplicitShortString <> 4 then
|
|
Halt(6);
|
|
s40 := t;
|
|
if ImplicitShortString <> 5 then
|
|
Halt(7);
|
|
s100 := t;
|
|
if ImplicitShortString <> 6 then
|
|
Halt(8);
|
|
Writeln('ok');
|
|
end.
|