Hallo,
lang lang ists her, dass ich mit VB6 gearbeitet hab. Ich hab hier ein Beispiel, das ich in Delphi umsetzen muss. Leider versteh ich das Beispiel nicht mehr. Vor allen hakt es daran, dass ich nicht genau die Funktionen von VB6 kenne.
Das Beispiel sieht so aus:
Code:
'decode badge info from Byte 11 each byte decoded to 2 characters
For i = 11 To Len(answer) - 1 'Len - LRC
dbuf = dbuf & Format(Hex(Asc(Mid(answer, i, 1))), "00")
Next i
Wenn answer = 15.80.04.00.00.00.01.00.0E.0B.08.00.00.00.02.01.0D .64.00.02.20.D5 (Zahlen in Hexdarstellung) ist, dann müsste dbuf = 080000000201D64000220 rauskommen.
Wer kann mir dabei helfen?
Ist Mid in VB6 0 oder 1 basiert?
Asc in VB = Ord in Delphi?
Hex = ??
Ich vermute mal, Format hängt einfach nur im Zweifel vorn eine 0 an, oder?
Vielen Dank!
Jens