Browse Source

* Deprecate hextobin

Michaël Van Canneyt 2 years ago
parent
commit
36a2835f8c
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/objpas/classes/classesh.inc

+ 1 - 1
rtl/objpas/classes/classesh.inc

@@ -2536,6 +2536,6 @@ procedure ObjectTextToResource(Input, Output: TStream);
 
 function LineStart(Buffer, BufPos: PAnsiChar): PAnsiChar;
 procedure BinToHex(BinValue, HexValue: PAnsiChar; BinBufSize: Integer); deprecated 'use procedures from unit StrUtils';
-function HexToBin(HexValue, BinValue: PAnsiChar; BinBufSize: Integer): Integer;
+function HexToBin(HexValue, BinValue: PAnsiChar; BinBufSize: Integer): Integer; deprecated 'use procedures from unit StrUtils';
 function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PAnsiChar; Strings: TStrings; AddEmptyStrings : Boolean = False): Integer;
 Function IfThen(AValue: Boolean; const ATrue: TStringList; const AFalse: TStringList = nil): TStringList; overload;