?? namelist.pas
字號:
unit NameList;
interface
uses Windows;
function UpdateNameList(const sName: string): Bool;
implementation
var List: array of string;
// 更新名字列表
function UpdateNameList(const sName: string): Bool;
var
J: Integer;
begin
Result := False;
for J := Low(List) to High(List) do if (List[J] = sName) then Exit; // 排除重復
SetLength(List, Length(List) + 1); // 增加表項
List[High(List)] := sName;
Result := True;
end;
initialization
SetLength(List, 0);
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -