Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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.
Advertisement