Hallo!
Ich hab nen altes QBaisc Programm auf der Arbeit rausgekramt, dass ich auf einen aktuellen stand
bringen möchte. Vorzugsweise mit Delphi.
Allerdings bin ich mir bei einigen Zeilen noch etwas unsicher.
Ist bei dem select case teil AND gleichwertig mit + ?
Code:
' QBasic
SELECT CASE (wert AND 240) / 16
CASE 0 TO 9
ascii$ = CHR$((wert AND 240) / 16 + 48)
CASE 10 TO 15
ascii$ = CHR$((wert AND 240) / 16 + 55)
END SELECT
Delphi-Quellcode:
// Delphi
case (wert + 240)
of
0, 1, 2, 3, 4, 5, 6, 7, 8, 9:
ascii = Chr((wert + 240)
div 16 + 48)
10, 11, 12, 13, 14, 15:
ascii = Chr((wert + 240)
div 16 + 55)
Gibt es eine vergleichbare Funktion wie mid() in Delphi oder muss ich mit
selber etwas stricken?
Code:
' Hier werden die angebenen Zeichen durch die Zeichen hinter dem = ersetzt
MID$(out$, 5 + pgrcnt * 12, 1) = CHR$(LEN(out$) - INT(LEN(out$) / 256) * 256)