WinAPI 字符及字符串函数(9): lstrcat - 合并字符串
2008-11-05 20:38
267 查看
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, 256); 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[0..255] 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(256); lstrcpy(p, p1); lstrcat(p, ' '); lstrcat(p, p2); ShowMessage(p); {Delphi 2009} FreeMemory(p); end; var buf: array[0..255] 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.
相关文章推荐
- WinAPI 字符及字符串函数(1): CharLower - 字符或字符串转小写
- WinAPI 字符及字符串函数(10): lstrcpy - 复制字符串
- WinAPI 字符及字符串函数(3): CharUpper - 字符或字符串转大写
- WinAPI 字符及字符串函数(11): lstrcpyn - 复制字符串, 同时指定要复制的长度
- WinAPI 字符及字符串函数(4): CharUpperBuff - 把缓冲区中指定数目的字符转大写
- WinAPI 字符及字符串函数(12): lstrlen - 串长度
- 《Python CookBook2》 第一章 文本 - 去字符串两端的空格 && 合并字符串 && 将字符串逐字符或者逐词反转
- 分组字符合并SQL语句 按某字段合并字符串之一(简单合并)
- 使用SQL如何把用逗号等字符隔开的字符串转换成列表,以及把列合并成符合隔开的字符串(转)
- WinAPI 字符及字符串函数(5): IsCharAlpha - 是否是个字母
- SQL 合并行,返回带分隔字符的字符串
- Android(Java)字符、字符串的查询、检索、截取、合并等操作
- 如何将两个有重复字符在内的字符串合并成一个,并且排序
- 删除字符串中出现次数最小的字符及书写字符串函数时的一个注意点
- 合并两个字符集合为一个新集合,每个字符串在新集合中仅出现一次,函数返回新集合中字符串。 如: s1集合{“while”,”for”,”switch”,”if”,”continue”
- sql server 使用for xml path 将1列多行转换为字符串连接起来,俗称 sql 合并字符
- Android(Java)字符、字符串的查询、检索、截取、合并等操作
- WinAPI 字符及字符串函数(13): lstrcmp、lstrcmpi - 对比串
- C语言学习笔记:19_数组-字符数组与字符串(常用字符串函数)
- SQL两列字段合并为一个字符串,尾部加字符