N'Abend Leutz!
Irgendwie steh ich auf dem Schlauch ...
Ich habe eine Klasse Deklariert, aber wenn ich sie mit dem Button1.Click Ereignis erzeugen will kommt es zu einer EAccessViolation
Exception ... Nur warum?
Hier mal der Code ...
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
type
TMyClass =
class(TObject)
private
f_test : integer ;
function Get_f_test : integer ;
public
property test : integer
read Get_f_test ;
end ;
var
Form1: TForm1;
implementation
{$R *.dfm}
var
x : TMyClass ;
function TMyClass.Get_f_test: integer ;
begin
result := f_test ;
end ;
procedure TForm1.Button1Click(Sender: TObject);
begin
x.Create ;
end;
end.