delphi 为什么会出现这种问题，不懂，求解~~~~~

格式天下

它提示错误是
Build
  [Error] Unit1.pas(39): Operator not applicable to this operand type
  [Error] Unit1.pas(41): Operator not applicable to this operand type
  [Error] Unit1.pas(43): Operator not applicable to this operand type
  [Error] Unit1.pas(45): Operator not applicable to this operand type
  [Error] Unit1.pas(47): ':=' expected but '=' found
  [Error] Unit1.pas(47): Operator not applicable to this operand type
  [Error] Unit1.pas(50): Declaration expected but 'IF' found
  [Error] Unit1.pas(53): Illegal character in input file: '；' ($A3BB)
  [Error] Unit1.pas(54): '.' expected but ';' found
  [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

字符串应该可以通过数组的方式对单个字符进行索引的，为什么不能进行判断呢？？？？

1. unit Unit1;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   
7.   Dialogs, StdCtrls;
   
8. 
   
9. type
   
10.   TForm1 = class(TForm)
    
11.     edt1: TEdit;
    
12.     btn1: TButton;
    
13.     procedure btn1Click(Sender: TObject);
    
14.   private
    
15.     { Private declarations }
    
16.   public
    
17.     { Public declarations }
    
18.   end;
    
19. 
    
20. var
    
21.   Form1: TForm1;
    
22. 
    
23. implementation
    
24. var
    
25. 
    
26. 
    
27. 
    
28. {$R *.dfm}
    
29. 
    
30. procedure TForm1.btn1Click(Sender: TObject);
    
31. var
    
32.   char1 : set of Char;
    
33.   Str:string;
    
34.   i:Integer;
    
35. begin
    
36.   char1:=[];
    
37.    Str:=edt1.Text;
    
38.    for i:=0 to Length(Str)-1 do
    
39.    begin
    
40.      if Str[i] = 'a' or Str[i] = 'A' then
    
41.       char1:=char1+['a']
    
42.       else if Str[i]='e' or Str[i]='E' then
    
43.       char1:=char1+['e']
    
44.       else if Str[i]='i' or Str[i]='I' then
    
45.       char1:=char1+['e']
    
46.       else if Str[i]='o' or Str[i]='O' then
    
47.       char1:=char1+['e']
    
48.       else  Str[i]='u' or Str[i]='U' then
    
49.       char1:=char1+['e'];
    
50.    end;
    
51.    if char1 <> [] then
    
52.    ShowMessage('含有元音字母')
    
53.    else
    
54.    ShowMessage('不含有元音字母')；
    
55. end;
    
56. 
    
57. end.
    

复制代码

格式天下

啊，我明白了，是因为没加括号……幸亏没人看过:L

小甲鱼

格式天下 发表于 2012-7-29 17:06

                               
登录/注册后可看大图

啊，我明白了，是因为没加括号……幸亏没人看过

呵呵，粗心了吧~

冬夜雪狼

甲鱼你好
甲鱼再见

laiwenyou

:lol:lol:lol:lol...正准备学