delphi字符串大全(4)

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应已经分配足够的空间非则将触发异常 参考 例子

///////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中的结尾 说明 可以连接指针字符串 参考 例子

///////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应已经分配足够的空间非则将触发异常 参考 例子

///////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

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

首部 function StrCat(Dest: PChar; const Source: PChar): PChar; $[SysUtils.pas 功能 返回连接指针字符串Dest和指针字符串Source 说明 StrCopy(StrEnd(Dest), Source) 参考 function SysUntils.StrCopy 例子

///////Begin StrCat

procedure TForm1.Button1Click(Sender: TObject); var

vBuffer: array[0..255] of Char; begin

StrPCopy(vBuffer, Edit1.Text); StrCat(vBuffer, PChar(Edit2.Text)); Edit3.Text := vBuffer; end;

///////End StrCat

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

首部 function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal): PChar; $[SysUtils.pas

功能 返回连接指针字符串Dest和指针字符串Source

说明 [注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度 参考 例子

///////Begin StrLCat

procedure TForm1.Button1Click(Sender: TObject); var

vBuffer: array[0..255] of Char; begin

StrPCopy(vBuffer, Edit1.Text);

StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value); Edit3.Text := vBuffer; end;

///////End StrLCat

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

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

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

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

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

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

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

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

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

参考

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

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

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

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

首部 function StrScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas 功能 返回在指针字符串Str搜索字符Chr第一个出现的地址 说明 没有找到则返回空指针 参考

例子 Edit2.Text := StrScan(PChar(Edit1.Text), '*'); ━━━━━━━━━━━━━━━━━━━━━

首部 function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas 功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址 说明 没有找到则返回空指针 参考

例子 Edit2.Text := StrRScan(PChar(Edit1.Text), '*'); ━━━━━━━━━━━━━━━━━━━━━

首部 function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas 功能 返回指针字符串Str2在Str1中第一个出现的地址 说明 没有找到则返回空指针;StrPos('12345', '3') = '345' 参考

例子 Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text)); ━━━━━━━━━━━━━━━━━━━━━

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

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

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

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

首部 function StrPas(const Str: PChar): string; $[SysUtils.pas 功能 返回指针字符串Str转换成字符串 说明 也可以直接赋值 参考

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

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

首部 function StrAlloc(Size: Cardinal): PChar; $[SysUtils.pas 功能 返回分配指定空间的内存资源给指针字符串

说明 空间的大小也将保存;用StrDispose才能全部释放 参考 function System.GetMem 例子

///////Begin StrAlloc

procedure TForm1.Button1Click(Sender: TObject); var

P: PChar; begin

P := StrAlloc(SpinEdit1.Value); ShowMessage(IntToStr(StrLen(P))); Dec(P, SizeOf(Cardinal));

ShowMessage(IntToStr(Cardinal(Pointer(P)^))); Inc(P, SizeOf(Cardinal)); StrDispose(P); end;

///////End StrAlloc

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

首部 function StrBufSize(const Str: PChar): Cardinal; $[SysUtils.pas 功能 返回通过函数StrAlloc分配的缓冲区大小 说明 出现异常情况则返回不可预知的结果 参考 function System.SizeOf

例子 SpinEdit1.Value := StrBufSize(StrAlloc(SpinEdit2.Value)); ━━━━━━━━━━━━━━━━━━━━━

首部 function StrNew(const Str: PChar): PChar; $[SysUtils.pas 功能 返回复制一个新的指针字符串 说明 如果Str为nil则返回nil

参考 function SysUtils.StrLen;function SysUtils.StrMove;function SysUtils.StrAlloc 例子

///////Begin StrNew,StrDispose

procedure TForm1.Button1Click(Sender: TObject); var

P: PChar; begin

P := StrNew(PChar(Edit1.Text)); ShowMessage(P); StrDispose(P); end;

///////End StrNew,StrDispose

━━━━━━━━━━━━━━━━━━━━━ 首部 procedure StrDispose(Str: PChar); $[SysUtils.pas 功能 释放指针字符串Str内存资源

说明 如果Str为nil则不作任何处理;并且释放空间大小信息

参考 function System.Dec;function System.SizeOf;function System.FreeMem 例子 <参见StrNew>