字符串 新手问题？

Question

任意输入一串字符，将其中小写字母转换成大写字母（其他字符不变），并记录小写字母的个数。细点 开始定义是什么类型啊 Edit1.text输入。用Edit2.text输出成大写。Edit3.text输出个数。 谢谢

Answer 1

var 
  str: string;
begin
  
  str := Edit1.text;
  Edit2.text := uppercase(str);
end;

Answer 2

var  
  str: string;
begin
   
  str := Edit1.text;
  Edit2.text := uppercase(str);
  Edit3.text := inttostr(length(str));
end;

Answer 3

怎么用Edit3.text 输出个数呢？

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  TempStr:string;
  TempCount,i:Integer;
begin
  TempStr:=edit1.Text;
  TempCount:=0;
  for i:=1 to Length(TempStr) do
  begin
    if TempStr[i] in ['a'..'z'] then
      inc(TempCount);
  end;
  Edit3.Text:=UpperCase(TempStr);
  Edit2.Text:=IntToStr(TempCount);
end;