77范文网 - 专业文章范例文档资料分享平台

delphi字符串大全(2)

来源:网络收集 时间:2019-06-10 下载这篇文档 手机版
说明:文章内容仅供预览,部分内容可能不全,需要完整文档或者需要复制内容,请下载word后使用。下载word有问题请添加微信号:或QQ: 处理(尽可能给您提供完整文档),感谢您的支持与谅解。点击这里给我发消息

说明 系统变量AnsiResemblesProc的默认值 参考 function StrUtils.AnsiResemblesText

例子 [var AnsiResemblesProc: TCompareTextProc = SoundexProc;] ━━━━━━━━━━━━━━━━━━━━━

首部 function NewStr(const S: string): PString; deprecated; $[SysUtils.pas 功能 返回一个新的字符串指针地址 说明 字符串S为空时返回NullStr 参考 procedure System.New 例子

////////Begin NewStr,DisposeStr

procedure TForm1.Button1Click(Sender: TObject); var

P: PString; begin

P := NewStr(Edit1.Text); Edit2.Text := P^; DisposeStr(P); end;

////////End NewStr,DisposeStr

━━━━━━━━━━━━━━━━━━━━━

首部 procedure DisposeStr(P: PString); deprecated; $[SysUtils.pas 功能 释放字符串指针P资源 说明 配合函数NewStr使用 参考 procedure System.Dispose 例子 <如上参见,如下参见>

━━━━━━━━━━━━━━━━━━━━━

首部 procedure AssignStr(var P: PString; const S: string); deprecated; $[SysUtils.pas 功能 将字符串S更新给字符串指针P

说明 更新值时会释放以前字符串指针的资源

参考 function SysUtils.NewStr;function SysUtils.DisposeStr 例子

////////Begin AssignStr

procedure TForm1.Button1Click(Sender: TObject); var

P: PString; begin P := nil;

AssignStr(P, Edit1.Text); Edit2.Text := P^; DisposeStr(P); end;

////////End AssignStr

━━━━━━━━━━━━━━━━━━━━━

首部 procedure AppendStr(var Dest: string; const S: string); deprecated; $[SysUtils.pas 功能 在字符串Dest后追加字符串S

说明 相当于Dest := Dest + S;Delphi6已经不建议使用

参考 例子

////////Begin AppendStr

procedure TForm1.Button1Click(Sender: TObject); var

S: string; begin

S := Edit2.Text;

AppendStr(S, Edit1.Text); Edit2.Text := S; end;

////////End AppendStr

━━━━━━━━━━━━━━━━━━━━━

首部 function UpperCase(const S: string): string; $[SysUtils.pas 功能 返回字符串S的大写形式 说明 非小写字符不处理

参考 procedure System.SetLength

例子 Edit2.Text := UpperCase(Edit1.Text);

━━━━━━━━━━━━━━━━━━━━━

首部 function LowerCase(const S: string): string; $[SysUtils.pas 功能 返回字符串S的小写形式 说明 非大写字符不处理

参考 procedure System.SetLength

例子 Edit2.Text := LowerCase(Edit1.Text);

━━━━━━━━━━━━━━━━━━━━━

首部 function CompareStr(const S1, S2: string): Integer; $[SysUtils.pas 功能 返回比较两个字符

说明 当S1>S2返回值>0;当S1

例子 SpinEdit1.Value := CompareStr(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; assembler; $[SysUtils.pas 功能 返回比较两个内存指针

说明 CompareMem(PChar('12a'), PChar('12c'), 2)=True;CompareMem(PChar('12a'), PChar('12c'), 3)=False

参考

例子 CheckBox1.Checked := CompareMem(Self, Form1, 8); ━━━━━━━━━━━━━━━━━━━━━

首部 function CompareText(const S1, S2: string): Integer; $[SysUtils.pas 功能 返回比较两个字符串 说明 不区分大小写 参考

例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas 功能 返回两个字符串是否相等

说明 不区分大小写 参考

例子 CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function AnsiUpperCase(const S: string): string; $[SysUtils.pas 功能 返回字符串S的大写形式

说明 ANSI(American National Standards Institute)美国国家标准协会;非小写的字符不变 参考 function Windows.CharUpperBuff

例子 Edit2.Text := AnsiUpperCase(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function AnsiLowerCase(const S: string): string; $[SysUtils.pas 功能 返回字符串S的小写形式 说明 非大写字符不处理

参考 function Windows.CharLowerBuff

例子 Edit2.Text := AnsiLowerCase(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function AnsiCompareStr(const S1, S2: string): Integer; $[SysUtils.pas 功能 反回比较两个字符串

说明 当S1>S2返回值>0;当S1

例子 SpinEdit1.Value := AnsiCompareStr(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function AnsiSameStr(const S1, S2: string): Boolean; $[SysUtils.pas 功能 返回两个字符串是否相等 说明 区分大小写

参考 function SysUtils.AnsiCompareStr

例子 CheckBox1.Checked := AnsiSameStr(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function AnsiCompareText(const S1, S2: string): Integer; $[SysUtils.pas 功能 反回比较两个字符串

说明 当S1>S2返回值>0;当S1

例子 SpinEdit1.Value := AnsiCompareText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function AnsiSameText(const S1, S2: string): Boolean; $[SysUtils.pas 功能 返回两个字符串是否相等 说明 不区分大小写

参考 function SysUtils.AnsiCompareText

例子 CheckBox1.Checked := AnsiSameText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas 功能 返回比较两个指针字符串

说明 当S1>S2返回值>0;当S1

例子 SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text)) ━━━━━━━━━━━━━━━━━━━━━

首部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas 功能 返回比较两个指针字符串

说明 当S1>S2返回值>0;当S1

例子 SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text)) ━━━━━━━━━━━━━━━━━━━━━

首部 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; $[SysUtils.pas 功能 返回比较两个指针字符串指定长度

说明 当S1>S2返回值>0;当S1

例子 SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text), SpinEdit2.Value) ━━━━━━━━━━━━━━━━━━━━━

首部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; $[SysUtils.pas 功能 返回比较两个指针字符串指定长度

说明 当S1>S2返回值>0;当S1

例子 SpinEdit1.Value := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), SpinEdit2.Value) ━━━━━━━━━━━━━━━━━━━━━

首部 function AnsiStrLower(Str: PChar): PChar; $[SysUtils.pas 功能 返回指针字符串小写形式 说明 非大写字符不处理

参考 function Windows.CharLower

例子 Edit2.Text := AnsiStrLower(PChar(Edit1.Text)); ━━━━━━━━━━━━━━━━━━━━━

首部 function AnsiStrUpper(Str: PChar): PChar; $[SysUtils.pas 功能 返回指针字符串大写形式 说明 非小写字符不处理

参考 function Windows.CharUpper

例子 Edit2.Text := AnsiStrUpper(PChar(Edit1.Text)); ━━━━━━━━━━━━━━━━━━━━━

首部 function AnsiLastChar(const S: string): PChar; $[SysUtils.pas 功能 返回字符串S的最后一个指针字符 说明 当字符串S为空串则返回空指针 参考 function SysUtils.ByteType

例子 Edit2.Text := AnsiLastChar(Edit1.Text);

━━━━━━━━━━━━━━━━━━━━━

首部 function AnsiStrLastChar(P: PChar): PChar; $[SysUtils.pas 功能 返回指针字符串P的最后一个指针字符 说明 当字符串P为空空指针则返回空指针 参考 function SysUtils.ByteType

例子 Edit2.Text := AnsiLastChar(PChar(Edit1.Text)); ━━━━━━━━━━━━━━━━━━━━━

首部 function WideUpperCase(const S: WideString): WideString; $[SysUtils.pas 功能 返回双字节字符串的大写形式 说明 WideChar双字节字符

参考 function Windows.CharUpperBuffW

例子 Edit2.Text := WideUpperCase(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function WideLowerCase(const S: WideString): WideString; $[SysUtils.pas 功能 返回双字节字符串的小写形式 说明 我怎么就测试不出来呢

参考 function Windows.CharLowerBuffW

例子 Edit2.Text := WideLowerCase(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function WideCompareStr(const S1, S2: WideString): Integer; $[SysUtils.pas 功能 返回比较两个双字节字符串

说明 当S1>S2返回值>0;当S1

例子 SpinEdit1.Value := WideCompareStr(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function WideSameStr(const S1, S2: WideString): Boolean; $[SysUtils.pas 功能 返回两个双字节字符串是否相同 说明 区分大小写

参考 function SysUtils.WideCompareStr

例子 CheckBox1.Checked := WideSameStr(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 function WideCompareText(const S1, S2: WideString): Integer; $[SysUtils.pas 功能 返回比较两个双字节字符串

说明 当S1>S2返回值>0;当S1

例子 SpinEdit1.Value := WideCompareText(Edit1.Text, Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━

首部 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);

━━━━━━━━━━━━━━━━━━━━━

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读,免费范文网,提供经典小说综合文库delphi字符串大全(2)在线全文阅读。

delphi字符串大全(2).doc 将本文的Word文档下载到电脑,方便复制、编辑、收藏和打印 下载失败或者文档不完整,请联系客服人员解决!
本文链接:https://www.77cn.com.cn/wenku/zonghe/652032.html(转载请注明文章来源)
Copyright © 2008-2022 免费范文网 版权所有
声明 :本网站尊重并保护知识产权,根据《信息网络传播权保护条例》,如果我们转载的作品侵犯了您的权利,请在一个月内通知我们,我们会及时删除。
客服QQ: 邮箱:tiandhx2@hotmail.com
苏ICP备16052595号-18
× 注册会员免费下载(下载后可以自由复制和排版)
注册会员下载
全站内容免费自由复制
注册会员下载
全站内容免费自由复制
注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信: QQ: