Hier ist ein detaillierteres Beispiel eines großen Delphi-Fehlers.
Ich empfehle jedem, es so oft wie möglich auszuprobieren. Ich hoffe, dass die Diskussion darüber lebhafter wird
Es kann für jeden eine Hilfe sein. Es gibt zwei ähnliche Artikel im
http://www.csdn.net/develop/read_article.asp?id=12606
http://www.csdn.net/develop/read_article.asp?id=12525
Unten finden Sie den Beispielquellcode. Sie können die Einstellungen frei ausprobieren.
Einheit Einheit1;
Schnittstelle
verwendet
Windows, Nachrichten, SysUtils, Varianten, Klassen, Grafiken, Steuerelemente, Formulare,
Dialoge, StdCtrls, Menüs, ExtCtrls, jpeg;
Typ
TForm1 = Klasse(TForm)
Button1: TButton;
MainMenu1: TMainMenu;
xiangya1:TMenuItem;
Bild1: TImage;
Form1: TShape;
PROcedure Button1Click(Sender: TObject);
procedure xiangya1Click(Sender: TObject);
procedure Image1Click(Sender: TObject);
procedure Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Privat
{Private Erklärungen}
öffentlich
{Öffentliche Erklärungen}
Ende;
var
Form1: TForm1;
Typ
TxObject = Klasse
Destruktor Destroy;override;
Ende;
Durchführung
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
x: TxObject;
beginnen
x := TxObject.Create;
ShowMessage('xiangya');
x.Frei;
Ende;
{TxObject}
Destruktor TxObject.Destroy;
beginnen
MessageBox(0, PChar('TxObject'),'Free',MB_OK);
geerbt;
Ende;
procedure TForm1.xiangya1Click(Sender: TObject);
var
x: TxObject;
beginnen
x := TxObject.Create;
ShowMessage('xiangya');
x.Frei;
Ende;
procedure TForm1.Image1Click(Sender: TObject);
var
x: TxObject;
beginnen
// x := TxObject.Create;
// ShowMessage('xiangya');
x.Frei;
Ende;
procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
xx: TxObject;
beginnen
// xx := TxObject.Create;
ShowMessage('xiangya');
xx.Kostenlos;
Ende;
Ende