如何使Edit控件的Text内容与一个字符串比较？

Question

另外，如何让Text的内容显示成星号的形式？谢谢。

Answer 1

if Edit1.Text='Good' then Showmessage('ok');第二个用Edit1.PassWordChar:='*';

Answer 2

if Uppercase(edit1.text) := uppercase(str1) then
  showmessage('OK');设置 Passwordchar为*

Answer 3

if Uppercase(edit1.text) := uppercase(str1) then
  showmessage('OK');设置Edit Passwordchar设为*来晚了

Answer 4

if Trim(Edit1.Text) = 'String' then ShowMessage('It's Same!!');
设置Edit1的属性Passwordchar为*就可以了。

Answer 5

如果要去掉空格,可以这样
if Uppercase(trim(edit1.text)) := uppercase(trim(str1)) then
  showmessage('OK');