1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
| { =================================================================== }
Function Byte2Hexa(Const Val: Byte) : String;
Const
Lettre : Array[0..15] of String = ('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F') ;
Var
n, b : integer ;
Begin
b := Val Mod 16 ;
n := Val div 16 ;
Result := Lettre[n] + Lettre[b] ;
end;
{ ======================================================================== }
Function TailleFich( Const a: Array of Char) : Integer ;
Var
L : Integer ;
Ch : String ;
i : Integer ;
Begin
L := Length(a) ;
if L = 4 Then
Begin
Ch := '$' ;
For i := L-1 DownTo 0 Do
Ch := Ch + Byte2Hexa(Ord(a[i])) ;
Result := StrToIntDef(Ch, 0) ;
End
else
Result := 0 ;
End ;
{ ======================================================================== } |
Partager