kết quả trong mã đơn giản khi biến được uninitialized

Question

Hôm nay một trong những người bạn của tôi hỏi tôi về dưới mã:

var 
    a: Integer; 
begin 
    ShowMessage(IntToStr(a)); 
end; 

này được biến cục bộ và không được khởi tạo, ok?

đang Đặt trong OnClick sự kiện của một thành phần nút và sau đó chạy mã trong ba cách khác nhau dưới đây:

1. Bấm vào nút và xem kết quả, kết quả = 1635841
2. Nhấn phím Enter và xem kết quả, kết quả = 1
3. Nhấn phím Space và xem kết quả, reuslt = 1636097

tôi thử nghiệm mã trong hai máy tính khác nhau & thấy kết quả tương tự, bất kỳ ý tưởng về t của anh ấy ?

Answer 1

Vì biến không được khởi tạo, giá trị của nó có thể là bất kỳ thứ gì. Vì kết quả của bạn là 'một cái gì đó', không có gì bất thường ở tất cả diễn ra ở đây.

Answer 2

Xem điều này tương tự Stackoverflow question.

Trong biến cục bộ Delphi không được khởi tạo theo mặc định. Lập trình viên chịu trách nhiệm về điều đó và phải luôn đặt giá trị trước khi đọc nó. Giá trị của một biến đơn vị phụ thuộc vào nội dung của các tế bào bộ nhớ được phân bổ thực tế được sử dụng cho biến đó. Vì vậy, bất kỳ giá trị có thể ở đây.

Answer 3

procedure TForm1.Button1Click(Sender: TObject); 
var 
    a: Integer; 
begin 
    ShowMessage(IntToStr(Integer(a))); 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
ShowMessage(IntToStr(Integer(Pointer(TButtonControl(Button1))))); 
end; 

trên máy tính của tôi mã này tạo ra cùng một thông điệp như trình biên dịch sử dụng ebx đăng ký cho một biến, trong khi TButtonControl.WndProc sử dụng ebx để lưu trữ con trỏ đến Tự (như EAX sẽ ghi đè sau khi gọi hàm WinAPI từ TbuttonControl.WndProc) là button1 trước khi gọi trình xử lý thực tế Button1Click. Vì vậy, than ôi, trên văn bản thông điệp Delphi 2007 là quá dự đoán được.

[sửa] Bạn có thể xem những gì đang xảy ra bên trong VCL khi gỡ lỗi nếu bạn bật Sử dụng debug DCUs tùy chọn trong tùy chọn biên dịch dự án của bạn Compiler-> Debugging-> Sử dụng debug DCUs.