delphi - 如何简洁地检查一个字符串是否等于多个值中的任何一个？

Question

我目前有一条记录(具有不同的值)和三个具有特定分配值(例如名称等)的用户常量。

我可以将编辑框与一个用户进行比较，如下所示:

if edit1.text = user1 
 then xxxx

这一切都很好，但是我如何指定编辑框必须在三个不同的用户之间进行检查？

示例:

if edit1.text = user1 to user3
 then xxxx

我该如何去做呢？

Answer 1

Delphi 的最新版本(我使用 XE)有单元 StrUtils.pas，其中包含

function MatchText(const AText: string; const AValues: array of string): Boolean;
function MatchStr(const AText: string; const AValues: array of string): Boolean;

MatchStr 是区分大小写的版本。

您的问题现在可以这样解决:

if MatchStr(edit1.text, [user1, user2, user3])
  then xxxx