c代码翻译成delphi 代码

[bitter_spill]

int __fastcall TMainForm::AscToBin(unsigned char *instr,int inlen,unsigned char *outstr)
{
int i;
unsigned char c,high,low;
for(i=0;i<inlen/2;i++)
{
c=instr[2*i];
if(c>='0'&&c<='9') high=c-0x30;
if(c>='A'&&c<='F') high=c-0x41+0x0a;
if(c>='a'&&c<='f') high=c-0x61+0x0a;

c=instr[2*i+1];
if(c>='0'&&c<='9')low=c-0x30;
if(c>='A'&&c<='F')low=c-0x41+0x0a;
if(c>='a'&&c<='F')low=c-0x61+0x0a;
outstr[i]=(high<<4)+low;
}
return inlen/2;
}

[亮剑_]

这个不太复杂吧，建议自己试一下

[bitter_spill]

一些语法老是报错误，没有C语言简便。
在线等。。。

[白耗子]

function TForm1.DelphiAscToBin(instr:array of Byte;inlen:Integer;outstr:array of Byte):Integer;
var
  i:Integer;
  c,high,low:Byte;
begin
  for i:=0 to inlen div 2 do
  begin
    c:=instr[i];

    if not ( Chr(c) in ['0'..'9']) then
      high:=c-$30;
    //下面的你自己换下  同理可得
  end;
end;

[JPEXE]

function AscToBin(instr: PAnsiChar; inlen: Integer; outstr: PByte): Integer;
var
  i: Integer;
  c: AnsiChar;
  h: Byte;
  l: Byte;
begin
  for i := 0 to (inlen div 2) - 1 do
  begin
    c := instr^;
    if c in ['0'..'9'] then h := Byte(c) - $30;
    if c in ['A'..'F'] then h := Byte(c) - $41 + $0A;
    if c in ['a'..'f'] then h := Byte(c) - $61 + $0A;

    c := (instr + 1)^;
    if c in ['0'..'9'] then l := Byte(c) - $30;
    if c in ['A'..'F'] then l := Byte(c) - $41 + $0A;
    if c in ['a'..'f'] then l := Byte(c) - $61 + $0A;

    outstr^ := (h shl 4) + l;

    Inc(instr, 2);
    Inc(outstr, 1);
  end;

  Result := inlen div 2;
end;

PS：调用前需要给outstr参数分配内存，长度为inlen的1/2。

[bitter_spill]

谢谢，各位，结贴，散分。