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

1、delphi 字符串转二进制怎么转(超经典.txt 第一次笑是因为遇见你，第一次哭是因为你不在，第一次笑着流泪是因为不能拥有你。unit Convert;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;const/ / DIGITS 数字/ Characters that represent each digit. Add more characters to convert numbers /字符代表的一个数字 ，添加更多的字符对应转换的数字/ wi

2、th higher bases./通过更高的位Digits : string = 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ;/ / COMMON BASES 进制/ Common values for base representations.cbBin = 2; / Binary basecbOct = 8; / Octal basecbDec = 10; / Decimal basecbHex = 16; / Hexadecimal basetype/ / TCONVERT 转换/ Converts a number, in string represent

3、ation, 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 ow

4、n base./ Properties/ Base - Defines current base representation./ Text - Stores the number in string format.开始在form 中放入TConvert 。指定相应的属性，号码要转换的进制，并指定文本的数字转换。修改相应改变数字的代表性; 使用整数来设定自己的进制。属性进制- 定义当前进制，如八进制：cbOct = 8；文字 -存储在字符串中的数字TConvert = class(TCustomEditprivate Private declarations FBase : Integer;F

5、MinDigits : 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

6、: 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

7、 FBase write SetBase;property MinDigits : Integer read FMinDigits write SetMinDigits;property Text;property ReadOnly;property OnChange;end;procedure Register;implementationprocedure TConvert.SetBase (ABase : Integer;beginif IsValidBase (ABase thenbeginText := AdjustValue (ValueToText (TextToValue (T

8、ext, FBase, ABase, MinDigits; FBase := ABase;end;end;procedure TConvert.SetMinDigits (AMinDigits : Integer;beginFMinDigits := AMinDigits;Text := AdjustValue (ValueToText (TextToValue (Text, Base, Base, MinDigits; end;function TConvert.DigitToValue (Digit : Char : Integer;varI : Integer;beginDigit :=

9、 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;beginResult := (Base 1 and (Base 0 dobeginT := 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;varS : Integer;beginS := Length (Text;if MinDigits S thenbeginDec (MinDigits, S;for S := MinDigits downto 1 do Text := Digits 1 + Text;end;Result := Text;end;constructor TConvert.Create