Übersetzung VB(6) -> Delphi

[Nersgatt]

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

[EWeiss]

Mid = Mid$(string, start, Length)
Was das jetzt mit 0 oder 1 zu tun hat ist mir Unverständlich..

Asc = Ord
Hex = Hex wobei VB &H2000 = $2000 in Delphi

gruss

[Nersgatt]

Zitat:

Zitat von EWeiss (Beitrag 1112409)

Mid = Mid$(string, start, Length)

Was das jetzt mit 0 oder 1 zu tun hat ist mir Unverständlich..

Wenn Du in VB das erste Zeichen haben willst, Schreibst Du Mid(bla, 1, 1) oder Mid(bla, 0, 1)?
Das meinte ich damit.

[p80286]

Delphi-Quellcode:

answer: array [1..X] of byte;
answerC: array [1..x] of char absolute answer; 
dummy : string;
...
for i:= 11 to x do
  dumy:=dummy+inttohex(answer[i]);

Gruß
K-H

Edith:
Mid entspricht substr(text,pos,length)

[EWeiss]

Zitat:

Wenn Du in VB das erste Zeichen haben willst, Schreibst Du Mid(bla, 1, 1) oder Mid(bla, 0, 1)?
Das meinte ich damit.

Dann ist es 1

Mid$
Result := Copy(strString, nBegin, nLaenge);

gruss

[Nersgatt]

Danke euch beiden für die Entfernung des Bretts vor meine Kopf! :thumb: