Delphi的二進制與八進制、十進制、十六進制轉換
摘要：
uses Math;// 二進制 --> 十進制function BinToTen(s: string): Extended;var I, iLen: Integer;begin Result := 0; iLen := Length(s); for I := 0 to iLen - 1 do Result := Result + StrToInt(s[iLen - I]) * Power(... 阅读全文
posted @ 2010-03-29 16:14 markwu 阅读(677) 评论(0) 推荐(0) 编辑
