Arrays 如何使数组值都是大写字母lazarus

用户通过InputBox将字符串值输入到字符串数组中，一旦存储了值，如何使所有字母仅成为大写字母，如下面的示例。然后，这些值必须基本上覆盖数组中的非大写值，以便以后可以在列表框中显示它们。我知道我需要使用大写函数，但我似乎无法让它正常工作，因为它再次显示为非大写

这是我第一次使用数组和大写函数进行实验，所以请耐心点

例如：“曲棍球”、“网球”、“足球” “曲棍球”、“网球”、“足球”

大写代码：

procedure TFrm2016Assignment9.BtnCapitalStrClick(Sender: TObject);
   var
       Capitalise : string;
begin
 Capitalise := UpperCase(nBasicsStrArray[0]);
end;

显示代码：

procedure TFrm2016Assignment9.BtnDisplayStrClick(Sender: TObject);
begin
  dDateTime := Date() + Time();
  LstOutput.Items.Add('String Array : ' + DateTimeToStr(dDateTime));
  LstOutput.Items.Add(nBasicsStrArray[0]);
  LstOutput.Items.Add(nBasicsStrArray[1]);
  LstOutput.Items.Add(nBasicsStrArray[2]);
  LstOutput.Items.Add(nBasicsStrArray[3]);
  LstOutput.Items.Add(nBasicsStrArray[4]);
  LstOutput.Items.Add('****');
end;

---

NBASICSTRARRAY是什么数据类型

只需在整个字符串上使用大写：

whatever := UpperCase(someEdit.text);

---

UpperCase

是一个函数，它返回一个新值，其中字母大写。它不修改其参数。您将这个新值赋给了一个局部变量，但立即忘记了它

删除无效的

BtnCapitalStrClick

方法。添加字符串时，请将其转换为大写：

LstOutput.Items.Add(UpperCase(nBasicsStrArray[0]));

---

由于这是一个Lazarus主题，因此应该注意，大写解决方案仅适用于前128个ASCII字符。Lazarus默认使用UTF8编码，因此函数UTF8Uppercase（单位为LazUTF8）是一个更通用的解决方案，因为它考虑了所有字符。

数组的数据类型也是字符串。我决定采用这种方法，但根据我的任务，我必须保留BtnCapitalStrClick方法，所以我所做的是，我让这个方法不仅大写数组项，而且同时显示它们。所以lstuput.Items.Add（大写（nbasicstrarray[iCount]）；-在for循环中，这真的应该是一个评论，因为它不能回答问题。我相信他们现在已经让它更通用了。一般来说，正常使用函数，当然，用一些外来字符测试代码。不，只是用Laz trunk和fpc trunk进行了检查（虽然有点过时）：UTF8仍然需要大写。但是您没有回答问题。请将此转换为注释。如何转换为注释？