WinAPI 字符及字符串函数(9): lstrcat - 合并字符串
2024-08-29 12:50:58
unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls; type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
end; var
Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject);
var
p,p1,p2: PChar;
begin
p1 := 'Delphi';
p2 := '2009'; GetMem(p, );
p^ := #0; lstrcat(p, p1);
lstrcat(p, ' ');
lstrcat(p, p2); ShowMessage(p); {Delphi 2009} FreeMem(p);
end; procedure TForm1.Button2Click(Sender: TObject);
var
p1,p2: PChar;
buf: array[..] of Char;
begin
p1 := 'Delphi';
p2 := '2009'; FillChar(buf, Length(buf), #0); lstrcat(buf, p1);
lstrcat(buf, ' ');
lstrcat(buf, p2); ShowMessage(buf); {Delphi 2009}
end; procedure TForm1.Button3Click(Sender: TObject);
var
p,p1,p2: PChar;
begin
p1 := 'Delphi';
p2 := '2009';
p := GetMemory(); lstrcpy(p, p1); lstrcat(p, ' ');
lstrcat(p, p2); ShowMessage(p); {Delphi 2009} FreeMemory(p);
end; var
buf: array[..] of Char;
procedure TForm1.Button4Click(Sender: TObject);
var
p1,p2: PChar;
begin
p1 := '万一的 ';
p2 := 'Delphi 博客'; lstrcat(buf, p1);
lstrcat(buf, p2); ShowMessage(buf); {万一的 Delphi 博客}
end; end.
最新文章
- Ubuntu下配置python完成爬虫任务(笔记一)
- 最新最全的js判断移动设备及操作系统
- linux namespace note
- Openstack os-networks API create network 方法
- cnn常用参数记录
- Linux命令——监视相关
- CDialogSK - A Skinnable Dialog Class
- .Net小白的第一篇博客
- javaScript手记(01)
- Spring Cloud Ribbon 整合 Hystrix
- 改善python程序的建议[转]
- 工程经验记录yolo框下移引发的思考
- Java-线程间通信小结
- UDAF(用户自定义聚合函数)求众数
- java学习笔记(四):import语法
- Oracle 创建分区表
- [1]windows 内核情景分析---说明
- 几种常见NPE
- WPF 第三方控件
- JavaScript中eval()函数
热门文章
- Fast RCNN 中的 Hard Negative Mining
- C++设计模式——备忘录模式
- ios 给微信开发一个插件并安装到未越狱的手机上教程
- sprd测试系统跑vts
- cmd下,regsvr32不是内部或外部命令
- scrapy相关 通过设置 FEED_EXPORT_ENCODING 解决 unicode 中文写入json文件出现`\uXXXX`
- nginx 错误502 upstream sent too big header while reading response header from upstream
- WebLogic使用总结(一)——WebLogic安装
- BZOJ.3566.[SHOI2014]概率充电器(概率DP 树形DP)
- springboot 启动排除某些bean 的注入