흠.. 비트 연산하는 간단한 건데... 델파이로 할려니..

델파이론 첨이라 맞는지 잘 모르것네요..

다른 고수님들이 보구서 틀린 거 있는지 확인 부탁합니다.

CONST
   CRC_POLYNOM = $8408;
   CRC_PRESE      = $FFFF;

crc : longInt  = CRC_PRESET;
i , j : integer;

for i := 0 to cnt do begin  // cnt 는 프로토콜의 바이트 수
   crc := crc and (DATA[i] and $FF);
   for j := 0 to 8 do begin
      if (crc and $0001) then crc := (crc shr 1) and CRC_POLYNOM
      else crc := (crc shr 1);

   end;
end;

  cnt - 1
  8 - 1 => 7

저도 답변 썼다가 지웠어요 같아서요 ^^

맞게 했는지 모르겠는데요...

아래처럼 했는데 계속 ERROR가 나네욤....

==============================================================
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

CONST
CRC_POLYNOM  = $8408;
CRC_PRESET   = $FFFF;
crc : longInt  = CRC_PRESET;
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Data : string;
  i , j : integer;
begin
  Data := #07 + #255 +#176 + #01 + #00;

  for i := 0 to length(Data) - 1 do begin  // cnt 는 프로토콜의 바이트 수
     crc := crc and (DATA[ i ] and $FF);
     for j := 0 to 8 do begin
        if (crc and $0001) then
          crc := (crc shr 1) and CRC_POLYNOM
        else crc := (crc shr 1);

     end;
  end;
  showmessage( inttostr(crc));

end;

end.

crc 는 const 에 선언 하는 것이 아니고

var 에서 선언해주어야 합니다.


procedure TForm1.Button1Click(Sender: TObject);
var
  Data : string;
  i , j : integer;
  crc : longInt  = CRC_PRESET;
begin
  Data := #07 + #255 +#176 + #01 + #00;

  for i := 0 to length(Data) - 1 do begin  // cnt 는 프로토콜의 바이트 수
     crc := crc and (DATA[ i ] and $FF);
     for j := 0 to 7 do begin                    // 수정 부분
        if (crc and $0001) then
          crc := (crc shr 1) and CRC_POLYNOM
        else crc := (crc shr 1);

     end;
  end;
  showmessage( inttostr(crc));

end;

왠만하면
Data : Array of Byte; 이런식
또는 다른것으로 하시기를 아래에 보니 스트링에 해버렸네요
스트링구조는
첫바이트가 길이입니다.(1-255)
a := 'ABCDE';
이러면
a[0] := 5;
a[1] := 'A'; a[2] := 'B'...

결국
for i := 0 to length(Data) - 1 do begin
이게 아니라
for i := 1 to length(Data) do begin
이것이 맞게 됩니다.

스트링 쓰지 마세요 이궁 체크섬에 왠 스트링