program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils,
System.JSON;
type
TMyClass = class
class function CreateJSONArray: TJSonArray;
end;
TMyClass2 = class
function CreateJSONArray: TJSonArray;
end;
{ TMyClass }
class function TMyClass.CreateJSONArray: TJSonArray;
begin
Result := TJSonArray.Create;
end;
{ TMyClass2 }
function TMyClass2.CreateJSONArray: TJSonArray;
begin
Result := TJSonArray.Create;
end;
begin
try
var o := TMyClass.CreateJSONArray;
var c: TMyClass2 := nil;
var o2 := c.CreateJSONArray;
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
ReadLn;
end.
Comments
0 B
|👍
/👎
0 B
|👍
/👎