procedure TMainForm.BtnSendClick(Sender: TObject);
var
str1,str2:string;
buf:array of byte;
i:integer;
begin
str1:='我们';
setlength(buf,length(str1));//设置buf长度
move(PChar(str1)^,buf[0],Length(Str1));
for I := 0 to Length(buf) - 1 do
str2:=str2+char(buf[i]);
Mem_content.Lines.add(str2);
end;
本文提供了一个使用Delphi进行字符串操作的例子,包括将字符串转换为字节缓冲区及回显显示,对于学习Delphi语言的基本字符串处理技巧非常有用。

7707

被折叠的 条评论
为什么被折叠?



