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

《delphi 字符串转二进制怎么转(超经典)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、delphi字符串转二进制怎么转(超经典).txt第一次笑是因为遇见你，第一次哭是因为你不在，第一次笑着流泪是因为不能拥有你。unitConvert;interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;const//////////////////////////////////////////////////////////////////////////////////DIGITS数字/

2、/Charactersthatrepresenteachdigit.Addmorecharacterstoconvertnumbers//字符代表的一个数字，添加更多的字符对应转换的数字//withhigherbases.//通过更高的位Digits:string='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';//////////////////////////////////////////////////////////////////////////////////COMMO

3、NBASES进制//Commonvaluesforbaserepresentations.cbBin=2;//BinarybasecbOct=8;//OctalbasecbDec=10;//DecimalbasecbHex=16;//Hexadecimalbasetype//////////////////////////////////////////////////////////////////////////////////TCONVERT转换//Convertsanumber,instringrepre

4、sentation,fromabaseintomanyothers.//转换一个数字，用字符串中相应的字符表示////Start开始//PlaceaTConvertintheform.AssignBasepropertytheoriginalbaseof////thenumbertoconvert,andassignTextthenumbertoconvert.ModifyBase//tochangethenumber'srepresentation;useCommonBasesconstantsorset//y

5、ourownbase.////Properties//Base-Definescurrentbaserepresentation.//Text-Storesthenumberinstringformat.{开始在form中放入TConvert。指定相应的属性，号码要转换的进制，并指定文本的数字转换。修改相应改变数字的代表性;使用整数来设定自己的进制。属性进制-定义当前进制，如八进制：cbOct=8；文字-存储在字符串中的数字}TConvert=class(TCustomEdit)private{Privatede

6、clarations}FBase:Integer;FMinDigits:Integer;procedureSetBase(ABase:Integer);procedureSetMinDigits(AMinDigits:Integer);functionDigitToValue(Digit:Char):Integer;functionIsValidBase(Base:Integer):Boolean;functionPlaceToValue(Place,Base:Integer):Integer;functionT

7、extToValue(Text:string;Base:Integer):Integer;functionValueToText(Value,Base:Integer):string;functionAdjustValue(Text:string;MinDigits:Integer):string;protected{Protecteddeclarations}constructorCreate(AOwner:TComponent);override;public{Publicdeclarations}publi

8、shed{Publisheddeclarations}propertyBase:IntegerreadFBasewriteSetBase;propertyMinDigits:IntegerreadFMinDigitswriteSetMinDigits;propertyText;propertyReadOnly;propertyOnChange;end;procedureR