在Edit中输入用逗号隔开的字符，最后一个也有逗号，怎么判断输入格式是否正确？

如：发射点，电风扇，地方，大师傅，地方士， 问题点数：20、回复次数：4Top

1 楼Michaelyfj（星星还是那颗星星）回复于 2002-09-12 21:12:39 得分 4

这样只能判断最后一个','了Top

2 楼lxpbuaa（桂枝香在故国晚秋）回复于 2002-09-12 21:24:12 得分 4

判断非逗号字符总数和逗号总数是否相等，相等就正确  
   
  —————————————————————————————————  
  宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。  
  —————————————————————————————————Top

3 楼blazingfire（烈焰)(对.net极度憎恨中....）回复于 2002-09-12 21:24:25 得分 10

象这样吧  
  procedure   TForm1.Button1Click(Sender:   TObject);  
      function   Valid(Str:String):Boolean;  
      begin  
          if   Str=''   then  
          begin  
              Result:=True;  
              exit;  
          end;  
          if   (Str[Length(Str)]<>',')or(Trim(Str)='')   then  
          begin  
              Result:=False;  
              exit;  
          end;  
          Result:=True;  
          while   Pos(',',Str)>0   do  
          begin  
              if   Pos(',',Str)>1   then  
                  Delete(Str,1,Pos(',',Str))  
              else  
              begin   //如果','是第一个位置，那么格式不对  
                  Result:=False;  
                  exit;  
              end;  
          end;  
      end;  
  begin  
      if   not   Valid(Edit1.Text)   then  
          ShowMessage('Error!')  
      else  
          ShowMessage('OK!');  
  end;Top

4 楼PeakChen（一点点）回复于 2002-09-12 21:39:01 得分 2

不是很明白你的格式是什么？Top

相关问题

• 逗号
• str
• begin
• pos
• exit
• then
• result

• 帖主：winfang
• Michaelyfj
• lxpbuaa
• blazingfire
• PeakChen

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载