Delphi指標相關函式

1. addr

var

i : integer;
nodenumbers: array [0 .. 100] of integer;
begin
with treeview1 do
begin
for i := 0 to items.count - 1 do
begin
nodenumbers[i] := calculatevalue(items[i]);
items[i].data := addr(nodenumber[i]);
end;
end;
end;

2. assigned

function assigned(const p): boolean;：用於測試指定的物件是否為空。其中，如果引數p存在並且不為nil，則返回true。

var p: pointer;

begin
p := nil;
if assigned (p) then writeln ('you won''t see this');
getmem(p, 1024); 
freemem(p, 1024); 
if assigned (p) then writeln ('you''ll see this');
end;

procedure freeandnil(var obj);：釋放指定物件，並設定為空。

4. ptr

Delphi 路徑相關函式

includetrailingpathdelimiter const s string string 功能 返回包括最後路徑分隔符 說明 最後乙個字元是路徑分隔符則不變 否則加上乙個路徑分隔符返回 參考 function sysutils.ispathdelimiter function syste...

Delphi 函式指標 過程 函式型別

pascal 中的過程型別與c語言中的函式指標相似,為了統一說法,以下稱函式指標。函式指標的宣告只需要引數列表 如果是函式，再加個返回值。下面講解指向非物件 一般的 函式 過程的函式指標。例如宣告乙個過程型別，該型別帶乙個通過引用傳遞的整型引數 type intproc procedure var ...

Delphi 的資訊框相關函式

showmessage begin showmessage 提示內容 showmessage 提示內容 showmessage 第一行 13 10 第二行 showmessage 第一行 13 第二行 end inputbox var s string begin s inputbox 標題 提示資...