請教如何判斷 UPCASE(ECTE1.TEXT) = 'CANDY' ?

Question

請問各位這個問題:
    如何把EDIT1.TEXT裡面的字符串轉換成大寫的呢?
    UPCASE()返回的不是STRING型的,要用什麼函數呢?

Answer 1

错了是uppercase  返回string

Answer 2

The following code uppercases every other character in the text of an edit control when the user clicks the button.var  s : string;
  i : Integer;
begin
  { Get string from TEdit control }
  s := Edit1.Text;
  for i := 1 to Length(s) do
    if i mod 2 = 0 then s[i] := UpCase(s[i]);
  Edit1.Text := s;
end;

Answer 3

Edit1.Text := UpperCase(Edit1.Text);

Answer 4

procedure TForm1.BitBtn1Click(Sender: TObject);
   var
  bb : string;
  cc : Integer;
begin
  bb := Edit1.Text;
  for cc := 1 to Length(bb) do     
     bb[cc] := UpCase(bb[cc]);
  Edit1.Text := bb;
end;