当前页面位置: » 丰搜网 » 文档中心 » 详细内容
delphi6函数大全（9）
首部 function strend(const str: pchar): pchar; $[sysutils.pas
功能 返回指针字符串的结尾
说明 当指针字符串str为nil时将触发异常
参考 <null>
例子 edit2.text := strend(pchar(edit1.text)) - spinedit1.value;
━━━━━━━━━━━━━━━━━━━━━
首部 function strmove(dest: pchar; const source: pchar; count: cardinal): pchar; $[sysutils.pas
功能 返回将指针字符串source指定内存数量count复制覆盖到指针字符串dest中
说明 dest没有分配资源将触发异常s
参考 function system.move
例子
///////begin strmove
procedure tform1.button1click(sender: tobject);
var
vbuffer: pchar;
begin
vbuffer := '0123456789';
strmove(vbuffer, pchar(edit1.text), spinedit1.value);
edit2.text := vbuffer;
end;
///////end strmove
━━━━━━━━━━━━━━━━━━━━━
首部 function strcopy(dest: pchar; const source: pchar): pchar; $[sysutils.pas
功能 返回将指针字符串source复制到指针字符串dest中
说明 dest应已经分配足够的空间非则将触发异常
参考 <null>
例子
///////begin strcopy
procedure tform1.button1click(sender: tobject);
var
vbuffer: pchar;
begin
getmem(vbuffer, length(edit1.text) + 1);
strcopy(vbuffer, pchar(edit1.text));
edit2.text := vbuffer;
freemem(vbuffer);
end;
///////end strcopy
━━━━━━━━━━━━━━━━━━━━━
首部 function strecopy(dest:pchar; const source: pchar): pchar; $[sysutils.pas
功能 返回将指针字符串source复制到指针字符串dest中的结尾
说明 可以连接指针字符串
参考 <null>
例子
///////begin strecopy
procedure tform1.button1click(sender: tobject);
var
vbuffer: array[0..255] of char;
begin
strecopy(strecopy(vbuffer, pchar(edit1.text)), pchar(edit2.text));
edit3.text := vbuffer;
end;
///////end strecopy
━━━━━━━━━━━━━━━━━━━━━
首部 function strlcopy(dest: pchar; const source: pchar; maxlen: cardinal): pchar; $[sysutils.pas
功能 返回将指针字符串source指定长度maxlen复制到指针字符串dest中
说明 dest应已经分配足够的空间非则将触发异常
参考 <null>
例子
///////begin strlcopy
procedure tform1.button1click(sender: tobject);
var
vbuffer: array[0..255] of char;
begin
strlcopy(vbuffer, pchar(edit1.text), spinedit1.value);
edit2.text := vbuffer;
end;
///////end strlcopy
━━━━━━━━━━━━━━━━━━━━━
首部 function strpcopy(dest: pchar; const source: string): pchar; $[sysutils.pas
功能 返回将指针字符串source复制到指针字符串dest中
说明 strlcopy(dest, pchar(source), length(source))
参考 function sysutils.strlcopy
例子
///////begin strpcopy
procedure tform1.button1click(sender: tobject);
var
vbuffer: array[0..255] of char;
begin
strpcopy(vbuffer, pchar(edit1.text));
edit2.text := vbuffer;
end;
///////end strpcopy
━━━━━━━━━━━━━━━━━━━━━
首部 function strplcopy(dest: pchar; const source: string; maxlen: cardinal): pchar; $[sysutils.pas
功能 返回将字符串source指定长度maxlen复制到指针字符串dest中
说明 strlcopy(dest, pchar(source), maxlen)
参考 function sysutils.strlcopy
例子
///////begin strplcopy
procedure tform1.button1click(sender: tobject);
var
vbuffer: array[0..255] of char;
begin
strplcopy(vbuffer, edit1.text, spinedit1.value);
edit2.text := vbuffer;
end;
///////end strplcopy
