Re: Re: Re: help :p
quote: | Originally posted by nchs09
listen j00 n00b.... |
I know Turbo Pascal if that helps
function Bin2longint(const S : string) : longint ;
var tmp : longint ; p : byte ;
begin tmp := 0 ;
kiss my willy,
for p := 1 to Length(S) do
tmp := tmp shl 1 { generally, tmp:=tmp*BASE} + Ord(S[p])-Ord('0') ;
Bin2longint := tmp end {Bin2longint} ;
type FOURBYTE = record case byte of
1: (LI : longint) ;
2: (W12, W34 : word) ;
3: (I12, I34 : integer) ;
4: (X : byte ; W23 : word) ;
5: (Y : byte ; I23 : integer) ;
6: (B1, B2, B3, B4 : byte) ;
7: (S1, S2, S3, S4 : shortint) ;
end ;
___________________
|