delphi - 比较列表框的 2 项和备忘录的 2 行

Question

如何比较列表框的 2 项和备忘录的 2 行？如何给 Listbox 的项目一个变量？如何给备忘录的一行变量？

Answer 1

列表框项目

ListBox 的内容存储在TListBox.Items其中，类型为TStrings。这是一个从零开始的字符串列表/数组，因此为了获取 ListBox 中的第二项，请调用以下方法之一：

• ListBox1.Items.Strings[1]， 或者
• ListBox1.Items[1], 因为Strings[]是默认属性。

备忘录行

备忘录的内容存储在TMemo.Lines其中也是类型为TStrings，因此要获取备忘录的第一行，请调用：

• Memo1.Lines.Strings[0]， 或者
• Memo1.Lines[0].

比较/关系运算符

• =平等
• <>不等式
• <更小
• ETC...

全部一起

因此，要将备忘录的第一行与 ListBox 的第二项进行比较，请执行以下操作：

if Memo1.Lines[0] <operator> ListBox1.Items[1] then

例如：当您要检查两者是否相等时：

if Memo1.Lines[0] = ListBox1.Items[1] then

进阶

也许一个简单的比较运算符不能提供关于两个字符串之间差异的足够信息。然后使用函数而不是运算符来比较两个字符串，查看单位SysUtils和StrUtils。例如，当您想比较两个字符串是否具有相同的文本时，无论大小写：

if SameText(Memo1.Lines[0], ListBox1.Items[1]) then

同时比较4个项目

使用布尔/逻辑运算符连接两个比较：

if (Memo1.Lines[0] = ListBox1.Items[0]) and (Memo1.Lines[1] = ListBox1.Items[1]) then