字符串函数大全

字符串函数大全(33)       ///////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);