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