备忘录线分割

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;