更正商品名称的半个中文汉字

 var

    F: TextFile;

    __Str: string;

    i,m: integer;

begin

    AssignFile(F, 'e:/1.txt');

    try

        Reset(F);

        while not Eof(F) do

        begin

            Readln(F, __Str);

            __Str := trim(__Str);

            if __Str = '' then continue;

            m:=0;

            for i:=1 to length(__str) do

            begin

                if (ord(__Str[i])>127) then

                begin

                    m:=m+1;

                end

                else

                   m:=m+0;

                if (i = length(__str)) and (m mod 2 <> 0) then

                begin

                    ExecuteSQL(MyValue.MyDB, 'update xiaoxin set gname="'+copy(__str,8,length(__str)-9)+'" where vgno='+copy(__str,1,6));

                end;

            end

        end

    finally

        CloseFile(F);

    end;

end;