随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253


问题来源: 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;

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