SomovAV

Is there an Access Violation?

Nov 23rd, 2025 (edited)
3,837
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.70 KB | Source Code | 0 0
  1. program Project1;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. {$R *.res}
  6.  
  7. uses
  8.   System.SysUtils,
  9.   System.JSON;
  10.  
  11. type
  12.   TMyClass = class
  13.     class function CreateJSONArray: TJSonArray;
  14.   end;
  15.  
  16.   TMyClass2 = class
  17.     function CreateJSONArray: TJSonArray;
  18.   end;
  19.  
  20. { TMyClass }
  21.  
  22. class function TMyClass.CreateJSONArray: TJSonArray;
  23. begin
  24.   Result := TJSonArray.Create;
  25. end;
  26.  
  27. { TMyClass2 }
  28.  
  29. function TMyClass2.CreateJSONArray: TJSonArray;
  30. begin
  31.   Result := TJSonArray.Create;
  32. end;
  33.  
  34. begin
  35.   try
  36.     var o := TMyClass.CreateJSONArray;
  37.  
  38.     var c: TMyClass2 := nil;
  39.     var o2 := c.CreateJSONArray;
  40.   except
  41.     on E: Exception do
  42.       Writeln(E.ClassName, ': ', E.Message);
  43.   end;
  44.   ReadLn;
  45. end.
Advertisement