Ear*_*rlz 2 delphi syntax pointers delphi-7
我在使用Delphi的语法时遇到了一些麻烦.
我有一个记录:
type
TMyType = record
....
end;
Run Code Online (Sandbox Code Playgroud)
和程序:
procedure Foo(bar:Integer);
var
ptr : ^TMyType
begin
ptr := bar //how to do this?
end;
Run Code Online (Sandbox Code Playgroud)
如何正确地将整数转换为TMyType的指针?
像这样:
type
PMyType = ^TMyType;
procedure Foo(bar: Integer);
var
ptr: PMyType;
begin
ptr := PMyType(bar);
end;
Run Code Online (Sandbox Code Playgroud)
归档时间: |
|
查看次数: |
5084 次 |
最近记录: |