求高手 Delphi 代码转 c#

[cs_op]

代码如下转换成c#

//这是一个函数
function StrTOBcd(Str: string): string;
var
aa, n,i, Bytes: Byte;
  Odd: boolean;
  hex1,Hex: string;
begin
  str := trim(str); //去空格和回车等特殊字符
  str := stringreplace(str, ' ', '', [rfReplaceAll]);
  Result := '';
  Odd := Length(Str) mod 2 = 1;
  Bytes := (Length(Str) + 1) div 2;
  if Odd then Str := Str + '0';
  for i := 0 to Bytes - 1 do
  begin
    Hex := Copy(Str, i * 2 + 1, 2);
    //ShowMessage(chr(01));
    Result := Result + chr(HexToInt(Hex));
  end;
end;

//另一个
function BcdTOstr(ss: string): string;
var
  i: integer;
  s, s2: string;
begin
  for i := 1 to length(ss) do
  begin
    s2 := ss[i];
    s := s + BCD2Str(pchar(s2), 0, 2);
  end;
  result := s;
end;


function BCD2Str(P: PChar; Pos, Len: integer): string;
var
  i: integer;
  strResult: string;
  cRead: Byte;
  cReadH, cReadL: Byte;
  bOdd: boolean;
begin
  strResult := '';
  if (Len mod 2) = 1 then
  begin
    Len := (Len + 1) div 2;
    bOdd := true;
  end else begin
    Len := Len div 2;
    bOdd := false;
  end;
  for i := 0 to Len - 1 do
  begin
    cRead := Ord(P[pos + i]);
    cReadH := (cRead and $F0) shr 4;
    strResult := strResult + IntToHex(cReadH, 1);
    if (i = Len - 1) and bOdd then continue;
    cReadL := cRead and $0F;
    strResult := strResult + IntToHex(cReadL, 1);
  end;
  BCD2Str := strResult;
end;

[lantianhf]

把你所要的功能去C#板块提问一下！

[亮剑_]

赋值、循环、四则运算、字符串操作、位运算
找个语法手册对着翻吧

[周药师]

没啥难度
lz你自己先试着去转 出现问题来问

[passionboy03]

自己先尝试再问……[Quote=引用楼主 cs_op 的回复:]
代码如下转换成c#

Delphi(Pascal) code

//这是一个函数
function StrTOBcd(Str: string): string;
var
aa, n,i, Bytes: Byte;
Odd: boolean;
hex1,Hex: string;
begin
str := trim(str); //去空格和回车等特殊字符
str……
[/Quote]

[weiqiy]

好像有工具可以转，楼主这些都是基本的，最好自己动手，这样才能进步

[oushengfen]

这不太难,楼主还是自己来吧

[Cassava]

转到哪里不懂再问，你这样好像把你的工作推给了别人帮你做

[yct0605]

delphi转c#工具


http://www.ouyaoxiazai.com/soft/hyrj/146/11885.html

[Rexdy]

其实
有一个东西
叫
传说中的
Delphi2CSharp