给 Edit 两个可选值 - 回复 "delphi学习中" 的问题

问题来源: http://www.cnblogs.com/del/archive/2009/03/05/1345752.html#1468654

---

procedure TForm1.Edit1Click(Sender: TObject);

const

  arr: array[-1..0] of string = ('man', 'woman');

begin

  Edit1.Tag := not Edit1.Tag;

  Edit1.Text := arr[Edit1.Tag];

end;