Question

我创建了一个函数来检查Tlist中是否存在字符串，这是我的代码

function FindDtataLIST(namestring: String): BOOLEAN;
var
  I: Integer;
begin
  Result := False;
  for I := 0 to Listofdata.Count - 1 do
  begin
    if TData(Listofdata.Items[I]).Name = namestring then
    begin
      Result := True;
      Exit;
    end;
  end;
end;

但是我坚持一些陷阱，如果我的listofdata有大写字母的字符串作为示例：'MaRtiN'并且名字字符串等于小写字母作为例子：martin结果没有返回True我想检查

每当nametring存在一些大写字母或小

时，

if FindDtataLIST(namestring) = True

Answer 1

如果您只想检查两个字符串是否相等，可以使用AnsiSameText：

function FindDtataLIST(namestring: String): BOOLEAN;
var
  I: Integer;
begin
  Result := False;
  for I := 0 to Listofdata.Count - 1 do
  begin
    if AnsiSameText(TData(Listofdata.Items[I]).Name, namestring) then
    begin
      Result := True;
      Exit;
    end;
  end;
end;

Answer 2

使用“大写”

function FindDtataLIST(namestring: String): BOOLEAN;
var
  I: Integer;
begin
  Result := False;
  for I := 0 to Listofdata.Count - 1 do
  begin
    if uppercase(TData(Listofdata.Items[I]).Name) = uppercase(namestring) then
    begin
      Result := True;
      Exit;
    end;
  end;
end;

没试过，希望这有帮助...

如何检查Tlist中是否存在字符串，无论其是小写还是大写

2 个答案: