Delphi 路徑相關函式

includetrailingpathdelimiter(const s: string): string;

功能 返回包括最後路徑分隔符

說明 最後乙個字元是路徑分隔符則不變;否則加上乙個路徑分隔符返回

參考 function sysutils.ispathdelimiter;function system.length

例子 path := includetrailingpathdelimiter(dir);

excludetrailingpathdelimiter(const s: string): string;

功能 返回排除最後路徑分隔符

說明 最後乙個字元不是路徑分隔符則不變;否則減去最後的路徑分隔符返回

參考 function sysutils.ispathdelimiter;function system.length;function system.setlength

例子 dir := excludetrailingpathdelimiter(path);

lastdelimiter(const delimiters, s: string): integer;

功能 返回最後乙個分隔符的位置

說明 lastdelimiter('.', 'kingron.myetang.com') = 16

參考 function sysutils.strscan;function sysutils.bytetype

例子 spinedit1.value := lastdelimiter(edit1.text, edit2.text);

extractfilepath(const filename: string)：string;

功能 返回檔案名字中的路徑部分

說明 實質上是呼叫lastdelimiter作字串處理

例子 path := extractfilepath(filefullname);

extractfiledir(const filename: string)：string;

功能 返回檔案的資料夾

說明 實質上是呼叫lastdelimiter作字串處理

例子 dir := extractfiledir(filefullname);

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 i...

Delphi 的資訊框相關函式

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

delphi的訊息處理的相關函式

twincontrol.mainwndproc tcontrol.wndproc tobject.dispatch tobject.defaulthandler procedure twincontrol.mainwndproc var message tmessage begin try try ...