请高手帮忙将C语言转换成Delphi语言，高分奉献!!!

Question

我看了一下。有几个要点，剩下的你自己做吧！
>>   Shr
<<   shl
宏用常量！
静态变量的声明放在程序开头！作用于全局。
剩下的就没有什么难点了！

Answer 1

要考试没办法，很多书要看，没心思自己做，只有请各位帮手了,如果做出来方便的话，请发到信箱：[email protected]

Answer 2

看来Delphi的人确实不如VB的人厉害！

Answer 3

...
Type TForm1=Class(Form)
...
函数定义
...
end;
Const
  LEN_OUTBUF=64
  LEN_INBUF=1024  STATE_INIT_COPY=100
  STATE_COPY_INPUT=101
  STATE_SKIP_ML=102
  STATE_CHECKSUM=103
  STATE_READLEN=104
  STATE_ChangeIt=105
  STATE_UNESCAPE=106
  STATE_FLUSHING=107
  STATE_DBCS=108
  STATE_INIT_READLEN=109
Var
  Form1:TForm1;
  rawDat:string[291];
  pick_Changeing:string[63];
  transformed:array[0..2] of string[126];
  digits:array[0..0x6f] integer;function unescape (c:char):char;
var
  escapes,escaped:string;
  i:integer;
begin
  escapes:='#&!*$';
  escaped:='\r\n<>@';
  i:=0;
  if ord(c) > 127 then
  begin
    result:=c;
    Exit;
  end;
  while escapes[i] do
  begin
    if escapes[i]=c then
    begin
      result:=escaped[i];
      exit;
    end;
    i:=i+1;
  end;
  result:='?';
end;
...
...

Answer 4

当然可以，我原来是用C++Builder的，现在一起用，只是都写出来不晕死才怪

Answer 5

function TForm1.unescape (c:char):char;

Answer 6

为什么这么久都没有人解决呢？CSDN的delphi高手们