将备注行拆分为其他两个备忘录

Question

我在备忘录中有类似

的内容

东西 = 任何

如何通过省略= s omething和 任何到memo2和memo3中来分割

memo1 = 某事 = 任何内容

以及拆分后的

memo2 =某事

memo3 =任何

Answer 1

您可以使用pos查找等号的位置，并使用copy拉出所需的子串。

procedure TForm1.Memo1Change(Sender: TObject);
var
  S : string;
  P : integer;
begin
  // get text from Memo1

  S := Memo1 . Text;

  // find the position of the equal sign

  P := pos ( '=', S );

  // Put left substring in Memo2

  Memo2 . Text := copy ( S, 1, P - 1 );

  // Put right substring in Memo3

  Memo3 . Text := copy ( S, P + 1, maxint );

end;