给 Edit 两个可选值 - 回复

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

问题来源: https://blog.51cto.com/u_14617575/2744929

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;
           

posted on 2009-03-05 16:23  万一  阅读(2376)  评论(8)  编辑  收藏