delphi 字符串轉(zhuǎn)二進(jìn)制怎么轉(zhuǎn)(超經(jīng)典)

1、delphi 字符串轉(zhuǎn)二進(jìn)制怎么轉(zhuǎn)(超經(jīng)典.txt 第一次笑是因?yàn)橛鲆娔?，第一次哭是因?yàn)槟悴辉冢谝淮涡χ鳒I是因?yàn)椴荒軗碛心恪nit Convert;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;const/ / DIGITS 數(shù)字/ Characters that represent each digit. Add more characters to convert numbers /字符代表的一個(gè)數(shù)字 ，添加更多的字符對(duì)應(yīng)轉(zhuǎn)換的數(shù)字/ wi

2、th higher bases./通過更高的位Digits : string = 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ;/ / COMMON BASES 進(jìn)制/ Common values for base representations.cbBin = 2; / Binary basecbOct = 8; / Octal basecbDec = 10; / Decimal basecbHex = 16; / Hexadecimal basetype/ / TCONVERT 轉(zhuǎn)換/ Converts a number, in string represent

3、ation, from a base into many others. /轉(zhuǎn)換一個(gè)數(shù)字，用字符串中相應(yīng)的字符表示/ 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 。指定相應(yīng)的屬性，號(hào)碼要轉(zhuǎn)換的進(jìn)制，并指定文本的數(shù)字轉(zhuǎn)換。修改相應(yīng)改變數(shù)字的代表性; 使用整數(shù)來設(shè)定自己的進(jìn)制。屬性進(jìn)制- 定義當(dāng)前進(jìn)制，如八進(jìn)制：cbOct = 8；文字 -存儲(chǔ)在字符串中的數(shù)字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