hallo =),
ich möchte gerne eine vb funktion zu delphi konvertieren
und bekomm nun allerdings ständig fehlermeldungen
vom compiler mit denen ich nichts anfangen kann
Code:
function calccrc(strng: string; lenstr: integer): integer;
var
crc, ch, i, j: integer;
begin
for i:= 0 to lenstr -1 do
ch:= Ord(Copy(strng, i +1, 1));
for j:= 0 to 7 do
if ((crc Xor ch) And 1) Then
crc:= (int((crc /2)) Xor 40961)
else
crc:= Int(crc / 2);
end;
ch:= Int(ch / 2);
end;
end;
result:= crc;
end;
in der zeile: "ch:= Ord(Copy(strng, i +1, 1));" heißt
es z.b. inkompatible typen
in "if ((crc Xor ch) And 1) Then"
Ausdruck muss Boolean sein
crc:= (int((crc /2)) Xor 40961)
Operation ist auf Operantentyp nicht anwendbar
crc:= Int(crc / 2);
inkompatible typen Integer und extented
usw. hat jemand beim überfliegen meines versuches in
delphi vielleicht ein paar gundsetzliche fehler gefunden?
die orginal funktion:
Code:
Function CALCCRC(strng$, lenstr)
Dim crc As Long
Dim ch As Long
Dim i As Long
Dim j As Long
For i = 0 To lenstr - 1
ch = Asc(Mid(strng$, i + 1, 1))
For j = 0 To 7
If ((crc Xor ch) And 1) Then
crc = (Int((crc / 2)) Xor 40961)
Else
crc = Int(crc / 2)
End If
ch = Int(ch / 2)
Next j
Next i
CALCCRC = crc
End Function