存档

4.强制跳转(暂时不会)
========================实现的分析：==========================
自定义型的呢？ 
如果全不是 上面的那些类型则为自定义型 
如mov  al, 2
C3  02  B0
如果combobox 不为空(把这个加到前面去)
补充 90   20   00的 
那些判断需补机器码的个数
---------------------------------------------------------
TempString := StringReplace(A3.Text, ' ', '', [rfReplaceAll]);  // 上来先初始化得到各种值(去掉空格后的机器码)
 
TempZ := StrToInt(ZiJieShu.Value) - Length(TempString) div 2;             //剩余字节补充的个数
TempY := DupeString(ComboBox1.Text, TempZ);                               //临时拼出X个待补充的字节数
ShowMessage('TempZ是:' + IntToStr(TempZ) +#13#10 + 'TempY:' + TempY);
        
        
 
 下面这个一会待用！       
 ComboBox1.Text := DupeString(ComboBox1.Text, TempZ);
 
 A1 := HexToInt(a11.Text + A22.Text);            //要写入的机器码//这样连在一起写是没有问题的！
 
 
 
 
 
 ////////////////下面这个不知能不能一会会用到？
   if a11.Text = 'CC' then
    ComboBox1.ItemIndex := 3;
///////////////////////////////////////////////////////
838#5$E89B010000
======================
 总长度:5     机器码: E89B010000
剩余字节数是          3
自定义处理方式
==========================================
 下面的编号 都成了【破0】显然输出有问题   
 ===========================================================================
 下面是原来第186行的： 
//        A3.clear;    //这里清空就错了！！！
        begin
          for b := 0 to ((Length(JiQiMa.Value)) div 2) do
          begin
            if b = ((Length(JiQiMa.Value)) div 2) then
              break;


   // ShowMessage(IntToStr(cal(b)));
   // ShowMessage(MidStr(JiQiMa.Value, Length(JiQiMa.Value) - 1 - cal(b), 2));
            FanZhuanJQM := MidStr(JiQiMa.Value, Length(JiQiMa.Value) - 1 - cal(b), 2);
            A3.Text := A3.Text + FanZhuanJQM;
          end;
        end; 

标签：存档,Value,JiQiMa,Length,Text,TempZ,ComboBox1
来源： https://www.cnblogs.com/dream-crack/p/15807965.html