08-01-2023, 04:26 PM
السلام عليكم
كيف اقوم بستغلال الخاصية crc من خلال function
عندى EDIT1 فيه F1E83D08
و EDIT2 تضهر فيه نتيجة CRC
استعملت الكود هذا لكنه خاطى
edit2.Text:=Str_CRC04(edit1.Text)
كيف اقوم بستغلال الخاصية crc من خلال function
عندى EDIT1 فيه F1E83D08
و EDIT2 تضهر فيه نتيجة CRC
استعملت الكود هذا لكنه خاطى
edit2.Text:=Str_CRC04(edit1.Text)
PHP كود :
const
CRC8 = $1D;
function Str_CRC08 (Data: String): Byte;
function Str_CRC08(Data: String): Byte;
var
DataIndex, BitIndex: Byte;
Buf, Temp: Byte;
begin
Buf := NORMBYTESTART;
for DataIndex := 1 to Length(Data)
do begin
Temp := Byte(Data[DataIndex]);
Buf := Buf xor Temp;
for BitIndex := 0 to 7
do begin
if (Buf and $80) <> 0 then begin
Buf := Buf shl 1;
Buf := Buf xor BYTEGENERATOR; end
else
Buf := Buf shl 1;
end;
end;
Buf := Buf xor NORMBYTEXOR;
Result := Buf;
end;
