新系统班级名称规范化

代码 // 去掉一些代码，以及全角符号
procedure  TForm1.Button1Click(Sender: TObject);
var
  s: string ;
  i,j,k:Integer;
begin
  with  qry  do
   begin
    first;
     while   not  eof  do
    begin
      Edit;
      s: = fieldbyname( ' bmc ' ).AsString;
      s: = StringReplace(s, ' （ ' , ' ( ' ,   [rfIgnoreCase]);
      s: = StringReplace(s, ' ） ' , ' ) ' ,   [rfIgnoreCase]);
      fieldbyname( ' bmc ' ).AsString: = s;
      s: = fieldbyname( ' bmc ' ).AsString;
      i: = Pos( ' 10442 ' ,s);
      j: =  Pos( ' ( ' ,s);
      k: = Pos( ' ) ' ,s);
       if  i = 0   then
        begin
        Next;
        Continue;
         end
       else
       begin
        s: = Copy(s, 1 ,i - 1 );
        fieldbyname( ' bmc ' ).AsString: = s;
          if  (j <> 0 )  and  (k = 0 )  then
         fieldbyname( ' bmc ' ).AsString: =  fieldbyname( ' bmc ' ).AsString + ' ) '  ;
       end ;
        Next;
     end ;
    edit;
     Post;
    close;
    open;
   end ;
end ;

转载于:https://www.cnblogs.com/samsonleung/archive/2010/10/08/1845673.html

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！