|
@@ -11,19 +11,6 @@
|
|
|
|
|
|
**********************************************************************}
|
|
|
|
|
|
-Function IntToStr (I : Longint) : String;
|
|
|
-
|
|
|
-begin
|
|
|
- Str(I,Result);
|
|
|
-end;
|
|
|
-
|
|
|
-function IsValidIdent(const Ident: string): Boolean;
|
|
|
-
|
|
|
-begin
|
|
|
- Result:=True;
|
|
|
-end;
|
|
|
-
|
|
|
-
|
|
|
procedure BinToHex(BinValue, HexValue: PChar; BinBufSize: Integer);
|
|
|
Const
|
|
|
HexDigits='0123456789ABCDEF';
|