Delphi 6 SysUtils 單元函數速查手冊（二）：語言資訊、記憶體管理、字串大小寫比較修剪引用、整數布林轉換與資源字串

本文為 Delphi 6 SysUtils.pas 函數大全系列第二部分，涵蓋 系統語言資訊、記憶體配置/釋放、退出程序註冊、字串指標舊式管理 (Deprecated)、字串大小寫轉換 (Ansi/Wide)、字串比較 (Ansi/Wide)、字串修剪/引用/去引用/行尾調整、識別符驗證、整數/十六進制/布林轉換、資源字串載入、低層檔案控制代碼操作 (開關/讀寫/搜尋/關閉)、檔案時間/存在性/屬性/唯讀/刪除/重命名/路徑拆解/磁碟空間/目錄操作/檔案搜尋。

核心函數分類速查

1. 系統語言與記憶體

2. 字串指標舊式管理 (Deprecated，僅維護舊碼用)

3. 字串大小寫轉換

標準版 僅處理 ASCII；Ansi 版 呼叫 Windows CharUpperBuff/CharLowerBuff 支援多位元組字元集 (中文/日文/韓文)；Wide 版 支援 UTF-16 (Unicode)。

4. 字串比較

5. 字串修剪、引用與行尾

6. 整數、十六進制與布林轉換

TryStrToBool 修正範例：

SetLength(TrueBoolStrs, 2);
SetLength(FalseBoolStrs, 2);
TrueBoolStrs[0] := 'True';  FalseBoolStrs[0] := 'False';
TrueBoolStrs[1] := 'Yes';   FalseBoolStrs[1] := 'No';
if TryStrToBool(Edit1.Text, B) then CheckBox1.Checked := B;

7. 資源字串載入

8. 低層檔案控制代碼操作

9. 檔案資訊、屬性與路徑拆解

實用範例精選

列舉系統支援語言

for I := 0 to Languages.Count - 1 do
  Memo1.Lines.Add(Languages.Name[I]);
// 輸出: 繁體中文(台灣), 簡體中文(中國), English(United States)...

安全配置記憶體並自動歸零

var P: PInteger;
begin
  P := AllocMem(SizeOf(Integer)); // 自動歸零
  P^ := 100;
  ShowMessage(IntToStr(P^));
  FreeMem(P, SizeOf(Integer));
end;

檔案搜尋完整模板

var SR: TSearchRec;
begin
  if FindFirst('C:\Temp\*.*', faAnyFile, SR) = 0 then try
    repeat
      Memo1.Lines.Add(SR.Name);
    until FindNext(SR) <> 0;
  finally FindClose(SR); end;

路徑拆解常用組合

FullPath := 'C:\Projects\MyApp\Data\config.ini';
DirPath  := ExtractFilePath(FullPath);   // 'C:\Projects\MyApp\Data\'
DirOnly  := ExtractFileDir(FullPath);    // 'C:\Projects\MyApp\Data'
Drive    := ExtractFileDrive(FullPath);  // 'C:'
FileName := ExtractFileName(FullPath);   // 'config.ini'
Ext      := ExtractFileExt(FullPath);    // '.ini'
Short    := ExtractShortPathName(FullPath); // 'C:\PROJEC~1\MYAPP~1\DATA\CONFIG.INI'

本部分涵蓋的函數是 Delphi 日常開發最高頻的「字串處理 + 檔案系統互動」核心集合。掌握 Ansi*/Wide* 版本對多語系支援至關重要；檔案操作務必養成 try...finally FindClose/Close 習慣避免資源洩漏。