delphi 字符串转二进制怎么转(超经典).doc

delphi 字符串转二进制怎么转(超经典).txt第一次笑是因为遇见你，第一次哭是因为你不在，第一次笑着流泪是因为不能拥有你。unit Convert; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; const / / DIGITS 数字/ Characters that represent each digit. Add more characters to convert numbers/字符代表的一个数字 ，添加更多的字符对应转换的数字/ with higher bases./通过更高的位Digits : string = 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ;/ / COMMON BASES 进制/ Common values for base representations.cbBin = 2; / Binary base cbOct = 8; / Octal basecbDec = 10; / Decimal base cbHex = 16; / Hexadecimal base type / TCONVERT 转换/ Converts a number, in string representation, from a base into many others./转换一个数字，用字符串中相应的字符表示/ Start 开始/ Place a TConvert in the form. Assign Base property the original base of/ the number to convert, and assign Text the number to convert. Modify Base/ to change the numbers representation; use Common Bases constants or set/ your own base./ Properties/ Base - Defines current base representation./ Text - Stores the number in string format.开始在form中放入TConvert。指定相应的属性，号码要转换的进制，并指定文本的数字转换。修改相应改变数字的代表性;使用整数来设定自己的进制。 属性进制- 定义当前进制，如八进制：cbOct = 8；文字 -存储在字符串中的数字TConvert = class(TCustomEdit) private Private declarations FBase : Integer; FMinDigits : Integer; procedure SetBase (ABase : Integer); procedure SetMinDigits (AMinDigits : Integer);function DigitToValue (Digit : Char) : Integer; function IsValidBase (Base : Integer) : Boolean; function PlaceToValue (Place, Base : Integer) : Integer; function TextToValue (Text : string; Base : Integer) : Integer; function ValueToText (Value, Base : Integer) : string; function AdjustValue (Text : string; MinDigits : Integer) : string; protected Protected declarations constructor Create (AOwner : TComponent); override; public Public declarations published Published declarations property Base : Integer read FBase write SetBase; property MinDigits : Integer read FMinDigits write SetMinDigits; property Text; property ReadOnly; property OnChange; end; procedure Register; implementation procedure TConvert.SetBase (ABase : Integer); begin if IsValidBase (ABase) then begin Text := AdjustValue (ValueToText (TextToValue (Text, FBase), ABase), MinDigits); FBase := ABase; end; end; procedure TConvert.SetMinDigits (AMinDigits : Integer); begin FMinDigits := AMinDigits; Text := AdjustValue (ValueToText (TextToValue (Text, Base), Base), MinDigits); end; function TConvert.DigitToValue (Digit : Char) : Integer; var I : Integer; begin Digit := UpCase (Digit); I := Length (Digits); while (I 1) and (Digit Digits I) do Dec (I); Result := I - 1; end; function TConvert.IsValidBase (Base : Integer) : Boolean; begin Result := (Base 1) and (Base 0 do begin T := Digits (Value mod Base) + 1 + T; Value := Value div Base; end; Result := T; end; end else Result := ; end; function TConvert.AdjustValue (Text : string; MinDigits : Integer) : string; var S : Integer; begin S := Length (Text); if MinDigits S then begin Dec (MinDigits, S); for S := MinDigits downto 1 do Text := Digits 1 + Text; end; Result := Text; end; constructor TConvert.Create (AOwner