備忘錄線分割

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;