delphi - 比较备忘录中的文字和其他备忘录？

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;