备注行拆分

Question

我在备忘录中有文字，每行都是

东西 = 任何

我需要使用Edit1和Edit2以及按钮点击事件，以便edit1将带有某些内容并且edit2 任何内容

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  iPos : Integer;
  sText : String;
begin
sText := Memo1.Lines.Strings[0];
iPos := POS('=',sText);
Edit1.Text := copy(sText,1,iPos - 1);
Edit2.Text := copy(sText,iPos + 1,length(sText));
end;