Created
November 8, 2020 22:26
-
-
Save Pasquina/576728d136a5c86b8fd46e57fd697c0d to your computer and use it in GitHub Desktop.
TUDFUtil Class Definition
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
TUDFUtil = class | |
private | |
protected | |
class procedure BinToHex(var ASource, ATarget: IBDataArray; const ASourceByteCount: integer; var ASourceOffset: integer; var ATargetOffset: integer); | |
// Binary to Hexadecimal control routine | |
class procedure HexToBin(var ASource, ATarget: IBDataArray; const ATargetByteCount: integer; var ASourceOffset: integer; var ATargetOffset: integer); | |
// Hexadecimal to Binary control routine | |
public | |
class procedure GUIDtoANSI(var ASource, ATarget: IBDataArray); // from 128-bit number to formatted hexadecimal | |
class procedure ANSItoGUID(var ASource, ATarget: IBDataArray); // from formatted hexadecimal to 128-bit number | |
end; |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment