Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
Delphi 12 Athens
|
Re: vb function zu delphi konvertieren
30. Jun 2004, 13:17
Der Unterschied:
Code:
function calccrc(strng: string): integer;
var
crc, ch, i, j: integer;
begin
CRC := 0;
for i := 1 to Length(Strng)-1 do
begin
ch := Ord(strng[i]);
//hier hab ich geprüft ob ch und crc die richtigen werte haben
//für ch ist das der fall, crc liefert allerdings andere werte
for j := 0 to 7 do
begin
if ((crc Xor ch) And 1) <> 0 Then
crc:= (Trunc(crc /2) Xor 40961)
else
crc:= Trunc(crc /2);
ch:= Trunc([color=#ff0000]crc[/color] /2);
end;
end;
result:= crc;
end;
Code:
$packetlen = strlen($packet)-1;
for ($i=$packetlen; $i > 0; $i--) {
$ch = ord(substr($packet, $h++, 1));
for($j=0; $j <= 7; $j++) {
if (($crc ^ $ch) & 1) {
$crc = ($crc / 2) ^ 40961;
} else {
$crc = $crc / 2;
}
$ch = [color=#ff0000]$ch[/color] / 2;
}
}
return $crc;
... ...
Daniel Lizbeth Ich bin nicht zurück, ich tue nur so
|
|
Zitat
|