System.SysUtils
System::DynamicArray<System::WideChar> TCharArray
System::TArray__1<System::WideChar> TCharArray;
TCharArray
String TBytes byte
编码类型有：ASCII、8BIT、7BIT、UCS2-BIG、UCS2-LIT、UCS2-80、UCS2-81、UCS2-82、UTF-8、UTF-16(Unicode)
RawToBytes
BytesToRaw
Byte一个字节，能存放0..255，就是unsigned char，小写的byte等价于大写的Byte。
array
TByteDynArray= array of Byte;
TIdBytes= array of Byte;
typedef System::DynamicArray<System::Byte> TIdBytes;
typedef System::DynamicArray<System::Byte> TBytes;
动态数组的写法
DynamicArray<Byte> TBytes;
DynamicArray<int> TInts;
Bytes数组>Ascii字符串
bts:tbytes;
str := TEncoding.ASCII.GetString(bts);
TBytes = TArray<Byte>;
for var I := 0 to 15 do
begin
sCardData := sCardData+ char( bts[i]) ;//bts[i].ToHexString
end;
String> TBytes/TByteDynArray
Text.BytesOf()
BytesOf
WideBytesOf()
TBytes bv;
bv.set_length(8);
bytes=System::Sysutils::BytesOf(Caption);
bytes=System::Sysutils::WideBytesOf(Caption);//value is spec wide
bytes=Caption.BytesOf();
TBytes/TByteDynArray > String
Caption = System::Sysutils::StringOf(barr);
Caption = System::Sysutils::WideStringOf(barr);
String > <Utf8Bytes
TBytes bytes;
bytes = TEncoding::UTF8->GetBytes(Memo1->Text);
Memo1->Text = TEncoding::UTF8->GetString(bytes);
delphi
TEncoding.UTF8.GetBytes
TBytes/TByteDynArray > Byte *
TBytes bytes;
Byte * bt = &bytes[0];
byte bb[255];
或者
bt = new Byte[bytes.Length];
memcpy(bt,&bytes[0],bytes.Length);
TBytes初始化memset
TBytes bv;
bv.set_length(5000);
memset( &bv[0], 0,bv.Length );
Byte * >TBytes/TByteDynArray
Byte * bt；
TBytes bytes;
bytes = BytesOf(bt, sizeof(bt));
UnicodeString s1;
s1 = "Hello World!";
s1.Length(), ByteLength(s1)
ByteLength
TIdBytes
TIdBytes = array of Byte;
TBytes = TArray<Byte>;
uses IdGlobal;//head file
TIdBytes>String
String str=BytesToString( AValue: TIdBytes);
TIdBytes>TBytes
BytesToRaw(Buffer,abuffer,Length(Buffer));
SetLength(bs,0);
SetLength(bs,Length(idbs));
BytesToRaw(idbs,bs,Length(idbs));//error
BytesToRaw(idbs,bs[0],Length(idbs));//ok
buf :=TBytes( idbus);//ok
TBytes>TIdBytes
function RawToBytes(const AValue; const ASize: Integer): TIdBytes;
idbs := RawToBytes(bs[0], Length(bs));//必须加下标0,否则就是错是
idbs := RawToBytes(bs, Length(bs));//没有下标0是错的
结构体>TIdBytes
RawToBytes(SendData,SizeOf(SendData));//SendData是结构体变量，不要下标0
UTF8String Bytes>UnicodeString
字节转换为16进制
idbytes to hexString
String hexstr; for (int i = idbytes.Low; i <= idbytes.High; i++) { hexstr += IntToHex(idbytes[i], 2); }
delphi
PAnsiChar数组转为字符串
R: array[0..19] of AnsiChar;
sss:ansistring;
astr := AnsiString(r);
StrPCopy(r,astr);
Delphi7升级
AnsiChar（DelphiXE10）= Char（Delpih7）
Delphi7：
Object: array[1..6] of Char;
DelphiXE10，Berlin
Object: array[1..6] of AnsiChar;
sbytes := VarArrayOf([$AA, $EE, $81, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0]);
AnsiString>Bytes>AnsiString
bsa := TEncoding.ANSI.GetBytes(as1);
as1:= TEncoding.ANSI.GetString(bsa);
假UTF8Sring转换为汉字
UTF8String s8="闫换珍";
AnsiString s8a="闫换珍";
都是6个字节，一个汉字2个字节。
此时，想还原汉字this->Caption=???如何才能显示汉字
AnsiString as21 = s8;//err AnsiString as22 = AnsiString(s8);//err AnsiString as2 = s8.c_str();//ok String s991 = s8;//err String s992 = String(s8);//err String s99 = s8.c_str();//ok 最可靠
as1:= TEncoding.ANSI.GetString(bs8);//ok
真UTF8String
UTF8String s8=L"闫换珍";//加上L标识才是真正的UTF8，一个汉字3个字节，UnicodeString函数是2个字节。
AnsiString s8a="闫换珍";
TBytes bs81 =TEncoding::UTF8->GetBytes(s8);
TBytes bs82 =TEncoding::UTF8->GetBytes(s8a);
两个bytes里是相等的，正确的。
char dest[256] = {0}; // room for 256 characters
UnicodeString src = L"闫换珍";
UnicodeToUtf8(dest, src.c_str(), 256);
//或者 UnicodeToUtf8(dest,256, src.c_str(), src.Length*();
dest与bs81,bs82值相等。
RawByteString srbRaw;
srbRaw = UTF8Encode(ss);
//ss = UTF8Decode(srb);
char Buf[512] = {0 };
strcpy(Buf, srbRaw.c_str());
Buf这个也是正确的utf8字节
UTF8String>String
String s=s8;
UnicodeString us1 =s8;
UnicodeString us11 = UTF8ToUnicodeString(s8.c_str());
UnicodeString us13 = UTF8ToString(s8.c_str());
UnicodeString us14 = Utf8ToAnsi(s8);
RawByteString rbs1 = AnsiToUtf8(s8);
word/short/int 简单类型转换为bytes
var Buf:TBytes; w:Word;begin w:=10; Buf:=RawToBytes(w);end;var Buf:Array[0..1] of Byte; w:Word;begin w:=10; Move(w,Buf[0],2);end;
doule>Byte[]
byte bt[8];
double ad;
memcpy(&bt[0], (byte*)&ad, 8);
memcpy(&bt[0], (byte*)&ajava, sizeof(double));
#if defined(USE_ENCODING) TBytes FirstLine; // A dynamic array of bytes FirstLine.Length = 512; stream = _wfopen(OpenDialog1->Files->Strings[I].c_str(), L"r"); fgets(&FirstLine[0], FirstLine.Length, stream); Memo1->Lines->Append(TEncoding::UTF8->GetString(FirstLine)); fclose(stream); #else char FirstLine[512]; stream = _wfopen(OpenDialog1->Files->Strings[I].c_str(), L"r"); fgets(FirstLine, sizeof(FirstLine), stream); Memo1->Lines->Append(UTF8String(FirstLine)); fclose(stream); #endif
delphi
LBuffer: TBytes;
SetLength(LBuffer, LFileStream.Size);
LFileStream.ReadBuffer(Pointer(LBuffer)^, Length(LBuffer));
C++builder VCL String
String astr="hello";
astr[0]//error，下标正确的是从1开始
StringToOleStr
字符串函数
String ss;
ss.LastDelimiter(" ");
最后一个空格出现的位置，这样就不用循环了
BSTR bs1;
fun(BSTR *name);
fun(&bs1);
Delphi Berlin 有此函数，int转换为16进制
ai:Integer;
ai:=17;
self.Caption:=ai.ToHexString;
StringList>字符数组
arr:TArray<string>；
list:TStringList;
arr := list.ToStringArray;
TStringDynArray
TMemoryStream>TBytes
LResponse: TMemoryStream;
unsigned char *>AnsiString
AnsiString str1= (char *)buff;
AnsiString str2((const char *)buff);
AnsiString>unsigned char*
strcpy(uchar,AnsiString(str).c.str());
ascii码转16进制
String Asc2Hex(String astr) { TBytes bytes; bytes = TEncoding::ASCII->GetBytes(astr); String hexstr; for (int i = bytes.Low; i <= bytes.High; i++) { hexstr += IntToHex(bytes[i], 2); } return hexstr; }
String Hex2Asc(String hexStr) { int nLen = hexStr.Length(); int j = 0; String ahex; char achar; String retstr; if (0 != (nLen % 2)) { return -1; } for (int i = 1; i < nLen; i = i + 2, j++) { ahex = hexStr.SubString(i, 2); ahex = "0x" + ahex; achar = char(ahex.ToInt()); retstr = retstr + achar; } return retstr; }
UnicodeString>std:string
String at="abc";
std:string sstr = AnsiString(at).c_str();
字符串数组
var arr:TArray<string>;
TStringDynArray
ArrayOfString2 = array of string;
string2Bytes
String astr = "中国";
TBytes b1,b2,b3,b4;
b1 = TEncoding::UTF8->GetBytes(astr);
b2 = TEncoding::ANSI->GetBytes(astr);
b3 = TEncoding::Default->GetBytes(astr);
b4 = TEncoding::Unicode->GetBytes(astr);
E4B8ADE59BBD
D6D0B9FA
D6D0B9FA
2D4EFD56 高地位修正后：4E2D 56FD ，也有这样表单\u4e23 \u56fd
String s1,s2,s3,s4;
s1 = TEncoding::UTF8->GetString(b1);//中国
s2 = TEncoding::ANSI->GetString(b2);//中国
s3 = TEncoding::Default->GetString(b3);//中国
s4 = TEncoding::Unicode->GetString(b4);//中国
bytes数组转换成HexString
String bytesToHex(TBytes data)
{
String hexstr;
for (int i = 0; i < data.Length; i++)
hexstr+= IntToHex( data[i],2);
return hexstr;
}
特殊汉字
char=13,keypress,
包含key=13:复
包含tab
delphiAnsiChar array 转换为 tbytes
bts:tbytes;
outbuf: array[0..1000] of AnsiChar;
setlength(bts,200);
Move(bts[0[, outbuf[0], 200);
https://www.cnblogs.com/del88/p/5448317.html
bytesof(str)
stringof(bytes) T
strAnsi:= PAnsiChar(AnsiString(str));
TBytes -> PChar : LPChar := PChar(LTBytes);
PChar -> TBytes：LTBytes := BytesOf(LPChar);
TBytes -> Array of AnsiChar：move(LTBytes[i],LArrayOfAnsiChar[k]);
Array of AnsiChar -> string：LString := StringOf(BytesOf(LArrayOfAnsiChar));
https://www.cnblogs.com/keynexy/p/5919962.html
array of Byte>TBytes
AData: array of Byte buffer : TBytes; Count := Length(AData); SetLength(buffer, Count); if Count <> 0 then Move(AData[0], buffer[0], Length(AData));
字符数组初始化
outbuf:array[0..3000] of wideChar ;
FillChar(outbuf, Length(outbuf), #0);
WriteAllBytes
TBytes bts = TBase64Encoding::Base64->DecodeStringToBytes("base64str");
TFile::WriteAllBytes("c:\\tt.pdf",TBase64Encoding::Base64->DecodeStringToBytes(Memo2->Lines->Text));
