Delphi 利用集合求大写字符与元音字符

最新推荐文章于 2025-12-06 17:00:00 发布

原创最新推荐文章于 2025-12-06 17:00:00 发布 · 169 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#学习

Delphi基础专栏收录该内容

20 篇文章

订阅专栏

该代码片段展示了如何使用WindowsAPI在字符流中统计出现的字母（仅限元音和辅音），并分别计数。它定义了TAlphaLetter类型和两个字符集合，用于存储输入字符中的元音和辅音。

uses winapi.Windows;

type
  TAlphaLetter = set of 'A' .. 'Z';

var
  AlphaLetter: TAlphaLetter;
  YuanLetter: TAlphaLetter;
  CountAlpha: ShortInt = 0;
  CountYuan: ShortInt = 0;
  ch: char;

begin
  AlphaLetter := [];
  YuanLetter := [];
  read(ch);
  write(ch);
  while ch <> '?' do
  begin
    if ch in ['A' .. 'Z'] THEN
      AlphaLetter := AlphaLetter + [ch];
    if ch in ['A', 'E', 'I', 'O', 'U'] THEN
      YuanLetter := YuanLetter + [ch]; //集合与集合相加，不是和一个ch变量代表的字符相加
    read(ch);
    write(ch);
  end;

  for ch := 'A' to 'Z' do
    if ch in AlphaLetter then
    begin
      inc(CountAlpha);
      write(ch);
    end;
  writeln('AlphaLetter', CountAlpha);

  for ch := 'A' to 'Z' do
    if ch in YuanLetter then
    begin
      inc(CountYuan);
      write(ch);
    end;
  writeln('YuanLetter', CountYuan);

  sleep(1000000);
end.