当前页面位置: » 丰搜网 » 文档中心 » 详细内容
delphi6函数大全（5）
首部 function widesametext(const s1, s2: widestring): boolean; $[sysutils.pas
功能 返回两个双字节字符串是否相同
说明 不区分大小写
参考 function sysutils.widecomparetext
例子 checkbox1.checked := widesametext(edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
首部 function trim(const s: string): string; overload; $[sysutils.pas
首部 function trim(const s: widestring): widestring; overload; $[sysutils.pas
功能 返回除去字符串s左右不可见字符
说明 小于#32的字符看作不可见字符
参考 function system.copy
例子 edit2.text := trim(edit1.text);
━━━━━━━━━━━━━━━━━━━━━
首部 function trimleft(const s: string): string; overload; $[sysutils.pas
首部 function trimleft(const s: widestring): widestring; overload; $[sysutils.pas
功能 返回除去字符串s左边不可见字符
说明 小于#32的字符看作不可见字符
参考 function system.copy
例子 edit2.text := trimleft(edit1.text);
━━━━━━━━━━━━━━━━━━━━━
首部 function trimright(const s: string): string; overload; $[sysutils.pas
首部 function trimright(const s: widestring): widestring; overload; $[sysutils.pas
功能 返回除去字符串s右边不可见字符
说明 小于#32的字符看作不可见字符
参考 function system.copy
例子 edit2.text := trimright(edit1.text);
━━━━━━━━━━━━━━━━━━━━━
首部 function quotedstr(const s: string): string; $[sysutils.pas
功能 返回字符串s在pascal中的表现形式
说明 单引号中的一个单引号将转成两个
参考 procedure system.insert
例子 edit2.text := quotedstr(edit1.text);
━━━━━━━━━━━━━━━━━━━━━
首部 function ansiquotedstr(const s: string; quote: char): string; $[sysutils.pas
功能 返回字符串s以字符quote为引号的表现形式
说明 ansiquotedstr('hello"world', '@')='@hello"world@';ansiquotedstr('hello"world', '"')='"hello""world"'
参考 function sysutils.ansistrscan
例子 edit2.text := ansiquotedstr(edit1.text, '"');
━━━━━━━━━━━━━━━━━━━━━
首部 function ansiextractquotedstr(var src: pchar; quote: char): string; $[sysutils.pas
功能 返回以字符quote为引号的表现形式原形
说明 表现形式非法时src不变否则为空
参考 function sysutils.ansistrscan
例子
///////begin ansiextractquotedstr
procedure tform1.button1click(sender: tobject);
var
p: pchar;
begin
p := pchar(edit1.text);
edit2.text := ansiextractquotedstr(p, '"');
edit3.text := p;
end;
///////end ansiextractquotedstr
━━━━━━━━━━━━━━━━━━━━━
首部 function ansidequotedstr(const s: string; aquote: char): string; $[sysutils.pas
功能 返回以字符aquote为引号的表现形式原形
说明 表现形式非法时则返回s
参考 function sysutils.ansiextractquotedstr
例子 edit2.text := ansidequotedstr(edit1.text, '"');
━━━━━━━━━━━━━━━━━━━━━
首部 function adjustlinebreaks(const s: string; style: ttextlinebreakstyle = {$ifdef linux} tlbslf {$endif} {$ifdef mswindows} tlbscrlf {$endif}): string; $[sysutils.pas
功能 返回将给定字符串的行分隔符调整为cr/lf序列
说明 adjustlinebreaks('1'#13'2'#13)='1'#13#10'2'#13#10;adjustlinebreaks('1'#10'2'#10)='1'#13#10'2'#13#10
参考 function sysutils.strnextchar
例子 <null>
━━━━━━━━━━━━━━━━━━━━━
首部 function isvalidident(const ident: string): boolean; $[sysutils.pas
功能 返回字符串ident是否是正确的标识符
说明 标识符::字母下划线[字母下划线数字]...
参考 <null>
例子 checkbox1.checked := isvalidident(edit1.text);
━━━━━━━━━━━━━━━━━━━━━
首部 function inttostr(value: integer): string; overload; $[sysutils.pas
首部 function inttostr(value: int64): string; overload; $[sysutils.pas
功能 返回整数value转换成字符串
说明 format('%d', [value])
参考 function sysutils.fmtstr
例子 edit2.text := inttostr(spinedit1.value);
━━━━━━━━━━━━━━━━━━━━━
首部 function inttohex(value: integer; digits: integer): string; overload; $[sysutils.pas
首部 function inttohex(value: int64; digits: integer): string; overload; $[sysutils.pas
功能 返回整数value转换成十六进制表现结果;format('%.*x', [digits, value])
说明 参数digits指定字符最小宽度;最小宽度不足时将用0填充
参考 function sysutils.fmtstr
例子 edit2.text := inttohex(spinedit1.value, spinedit2.value);
━━━━━━━━━━━━━━━━━━━━━
首部 function strtoint(const s: string): integer; $[sysutils.pas
功能 返回字符串s转换成整数
说明 字符串非整数表达时将引起异常
参考 procedure system.val
例子 spinedit1.value := strtoint(edit1.text);
━━━━━━━━━━━━━━━━━━━━━
首部 function strtointdef(const s: string; default: integer): integer; $[sysutils.pas
功能 返回字符串s转换成整数
说明 字符串非整数表达时则返回默认值default
参考 procedure system.val
例子 spinedit1.value := strtointdef(edit1.text, 0);
━━━━━━━━━━━━━━━━━━━━━
首部 function trystrtoint(const s: string; out value: integer): boolean; $[sysutils.pas
功能 返回字符串s转换成整数value是否成功
说明 字符串非整数表达时返回false并且value将输出为0
参考 procedure system.val
例子
///////begin trystrtoint
procedure tform1.button1click(sender: tobject);
var
i: integer;
begin
checkbox1.checked := trystrtoint(edit1.text, i);
spinedit1.value := i;
end;
///////end trystrtoint
━━━━━━━━━━━━━━━━━━━━━
首部 function strtoint64(const s: string): int64; $[sysutils.pas
功能 返回字符串s转换成六十四位整数
说明 字符串非六十四位整数表达时将引起异常
参考 procedure system.val
例子 spinedit1.value := strtoint64(edit1.text);
━━━━━━━━━━━━━━━━━━━━━
首部 function strtoint64def(const s: string; const default: int64): int64; $[sysutils.pas
功能 返回字符串s转换成六十四位整数
说明 字符串非六十四位整数表达时则返回默认值default
参考 procedure system.val
例子 spinedit1.value := strtoint64def(edit1.text, 0);
━━━━━━━━━━━━━━━━━━━━━
首部 function trystrtoint64(const s: string; out value: int64): boolean; $[sysutils.pas
功能 返回字符串s转换成六十四位整数value是否成功
说明 字符串非六十四位整数表达时返回false并且value将输出为0
参考 procedure system.val
例子
///////begin trystrtoint64
procedure tform1.button1click(sender: tobject);
var
i: int64;
begin
checkbox1.checked := trystrtoint64(edit1.text, i);
spinedit1.value := i;
end;
///////end trystrtoint64
