글자 수 를 집계 하 다

//   Memo1、Label1、Label2、  Button1
procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  i,sum,e,c,t: Integer;
begin
  s := Memo1.Text;
  e := 0;
  c := 0;
  sum := Length(s);

  for i := 0 to sum do
  begin
    if (Ord(s[i]) >= 33) and (Ord(s[i]) <= 126) then
    begin
      Inc(e);
      Label1.Caption := '   : ' + IntToStr(e);
    end;

    if Ord(s[i]) >= 127 then
    begin
      Inc(c);
      Label2.Caption := '   : ' + IntToStr(c div 2);
    end;
  end;
end;

좋은 웹페이지 즐겨찾기