Làm cách nào để bao gồm một con trỏ phương thức trong một hằng số đã nhập?

Question

Tôi muốn sử dụng thủ tục của đối tượng trong một bản ghi, như vậy:

TCommandRec = record 
    name: string; 
    fn: procedure of object; 
end; 

tôi có thể tạo ra một mảng với điều này bằng cách chuyển nhượng:

commands: array [0..1] of TCommandRec; 

... 

commands[0].name := '-help'; 
commands[0].fn := DoHelp; 
commands[1].name := '-load'; 
commands[1].fn := DoLoad; 

Những gì tôi thực sự muốn làm tuyên bố một hằng số:

const 
    cmds: array [0..1] of TCommandRec = 
    (
    (name: '-help'; fn: DoHelp), 
    (name: '-load'; fn: DoLoad) 
); 

Tuy nhiên, tôi gặp lỗi cho DoHelp và DoLoad - Biểu thức không đổi mong đợi. Đây là hai phương thức của một lớp. Có một số cú pháp tôi cần phải sử dụng để làm cho công việc này hoặc tôi bị mắc kẹt xây dựng các mảng tại thời gian chạy?

Answer 1

Phương pháp của đối tượng là loại được gọi là hai loại con trỏ. Nó bao gồm các thông tin sau:

1. Địa chỉ của hàm.
2. Địa chỉ của đối tượng hoặc chủ thể.

Trước đây được biết tại thời gian biên dịch nhưng nói chung sau không được biên dịch. Đó là lý do tại sao bạn thường cần tạo những thứ này trong thời gian chạy.

Nếu bạn có thể sắp xếp đối tượng đó được biết tại thời gian biên dịch thì bạn có thể khai báo một hằng số đã nhập của loại bản ghi. Ví dụ:

type 
    TMyRecord = record 
    Foo: procedure of object; 
    end; 

    TMyStaticClass = class 
    class procedure Foo; 
    end; 

class procedure TMyStaticClass.Foo; 
begin 
end; 

const 
    MyRecord: TMyRecord = (Foo: TMyStaticClass.Foo); 

Tất nhiên, điều đó sẽ hữu ích cho bạn nếu các hàm của bạn có thể tồn tại như phương pháp thể hiện. Tôi chỉ cần thêm mã ở trên để minh họa rằng bạn có thể có các con trỏ phương thức không đổi, miễn là đối tượng là một hằng số thời gian biên dịch.

Answer 2

Bạn có thể lưu trữ các con trỏ tới phương pháp trong hồ sơ của bạn (chúng được gọi tại thời gian biên dịch, vì vậy không có vấn đề chỉ định chúng trong một định nghĩa const):

TCommandRec = record 
    name: string; 
    fn: Pointer; 
end; 

... 
const 
    cmds: array [0..1] of TCommandRec = 
    (
    (name: '-help'; fn: @DoHelp), 
    (name: '-load'; fn: @DoLoad) 
); 

Sau đó, khi bạn cần phải gọi fn của cmds[i] (tôi giả sử rằng các cuộc gọi xảy ra bên trong cùng lớp trong đó xác định phương pháp DoHelp và DoLoad), viết một cái gì đó như:

type TObjectProc = procedure of object; 
var m: TMethod; 
... 
m.Code := cmds[i].fn; 
m.Data := Self; 
TObjectProc(m);