将备忘录中的文本与另一个备忘录进行比较？

Question

在表单中，我删除了3个备忘录控件：memo1，memo2和memo3。

当我在memo2中输入完整句子问题时，memo1中存储的答案应显示在memo3中。

例如，假设memo1我写道：

what is your name?=my name is john

当我在what is your name?中输入memo2时，my name is john应出现在memo3。

我该怎么做？

Answer 1

您的Memo1包含name=value对。 TMemo.Lines属性是TStrings对象，TStrings具有一些用于处理name=value对的有用属性。在您的示例中，最简单的解决方案是使用Memo2中的问题作为Name属性的TStrings.Values[]参数，例如：

var
  question: string;
  answer: string;
begin
  question := Trim(Memo2.Text);
  answer := Memo1.Lines.Values[question];
  Memo3.Text := answer;
end;