給 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)  編輯  收藏