namelist.pas

来自「QQ工具QQ工具QQ工具QQ工具QQ工具QQ工具」· PAS 代码 · 共 32 行

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.