다음은 큰 델파이 버그에 대한 보다 자세한 예입니다.
모두가 가능한 한 많이 시도해 보는 것이 좋습니다. 이에 대한 논의가 더욱 활발해졌으면 좋겠습니다.
모든 사람에게 어느 정도 도움이 될 수 있습니다. 비슷한 글이 2개나 있네요
http://www.csdn.net/develop/read_article.asp?id=12606
http://www.csdn.net/develop/read_article.asp?id=12525
아래는 예제 소스코드이며, 자유롭게 설정하여 플레이하실 수 있습니다.
단위 Unit1;
인터페이스
용도
Windows, 메시지, SysUtils, 변형, 클래스, 그래픽, 컨트롤, 양식,
대화 상자, StdCtrls, 메뉴, ExtCtrls, jpeg;
유형
TForm1 = 클래스(TForm)
버튼1: T버튼;
메인메뉴1: TMainMenu;
xiangya1:TMenuItem;
이미지1: T이미지;
모양1: T모양;
PROcedure Button1Click(Sender: TObject);
절차 xiangya1Click(보내는 사람: TObject);
절차 Image1Click(보내는 사람: TObject);
절차 Shape1MouseDown(Sender: TObject; 버튼: TMouseButton;
시프트: TShiftState X, Y: 정수);
사적인
{비공개 선언}
공공의
{공개 선언}
끝;
var
Form1: TForm1;
유형
TxObject = 클래스
소멸자 파괴; 재정의;
끝;
구현
{$R *.dfm}
절차 TForm1.Button1Click(Sender: TObject);
var
x: Tx객체;
시작하다
x := TxObject.Create;
ShowMessage('샹야');
x.무료;
끝;
{TxObject}
소멸자 TxObject.Destroy;
시작하다
MessageBox(0, PChar('TxObject'),'무료',MB_OK);
상속됨;
끝;
절차 TForm1.xiangya1Click(보내는 사람: TObject);
var
x: Tx객체;
시작하다
x := TxObject.Create;
ShowMessage('샹야');
x.무료;
끝;
절차 TForm1.Image1Click(Sender: TObject);
var
x: Tx객체;
시작하다
// x := TxObject.Create;
// ShowMessage('샹야');
x.무료;
끝;
절차 TForm1.Shape1MouseDown(Sender: TObject; 버튼: TMouseButton;
시프트: TShiftState X, Y: 정수);
var
xx: Tx객체;
시작하다
// xx := TxObject.Create;
ShowMessage('샹야');
xx.무료;
끝;
끝