Memo line split

问题

i have text in memo each line is something like

something=anything

I need to use Edit1 and Edit2 with button click event, so that edit1 will carry something and edit2 anything

回答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;

来源：https://stackoverflow.com/questions/32754500/memo-line-split