var
s:string;
pc:pchar;
pb:pbyte;
ac:array[1..100] of char;
ab:array[1..100] of byte;
i:integer;
begin
s:='this is a test';
pc:=pchar(s); //string->pchar
pb:=pbyte(pc); //pchar->pbyte
for i:=1 to length(s) do
begin
ac[i]:=s[i]; //string->arrary of char
ab[i]:=byte(s[i]); //string->arrary of byte
end;
s:=pc; //pchar->string
s:=string(pb); //pbyte->string
s:=c; //arrary of char->string;
end;
String,PChar,PByte,Array of Char,Array of Byte 轉換
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章
判斷即有中文,又有英文的字符串。
function ByteType(const S: string; Index: Integer): TMbcsByteTy
book_coolboy_cl
2020-07-01 22:25:24
ExtractFileName、ExtractFileExt、ExtractFileDir、ExtractFilePath
ZHOUJIAOSHOU
2020-06-16 05:10:33
Delphi中IntraWeb的學習初體驗
siasbob
2020-06-16 01:56:52
CreateProcess創建帶參數的進程到獲取進程參數 失敗
一片荷叶
2020-06-13 19:09:21
creatprocess 傳入參數例子
procedure TMainForm.test();var UpdateFilePath:string; si:STARTUPINFO; p
一片荷叶
2020-06-13 19:09:21
表格單元格名稱轉爲行列
一片荷叶
2020-02-23 15:01:45
程序啓動時不顯示主窗體
ZHOUJIAOSHOU
2020-02-21 14:43:36
paramstr(0)
ZHOUJIAOSHOU
2020-02-21 14:43:36
ExtractFileDir 與 ExtractFilePath 的區別
ZHOUJIAOSHOU
2020-02-21 14:43:36
TApplication類詳解
ZHOUJIAOSHOU
2020-02-21 14:43:36
IdFTP無法設置TransferType屬性
ZHOUJIAOSHOU
2020-02-21 14:43:36
delphi的取整函數round、trunc、ceil和floor
裸奔的蜗牛
2018-09-04 17:05:10
Delphi資源
CSDNloading
2018-09-04 06:48:23
Rundll常見命令
而今伊始我命由我
2018-09-01 11:44:30