DELPHI常用函数集及简要范例_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

DELPHI常用函数集及简要范例

作者：闵涛文章来源：闵涛的学习笔记点击数：19866 更新时间：2009/4/23 18:30:33

''The first five characters are '''' +
    Result);
   end;
Examply
uses SysUtils;
const

  S1: PChar = ''''Enterprise''''
  S2: PChar = ''''Enter''''

var
  ComStr: string;
begin
  if StrLIComp(S1, S2, 5) = 0 then
    ComStr := ''''equal''''
  else
    ComStr := ''''different'''';
  Canvas.TextOut(10, 10, ''''The first five characters are '''' + ComStr);
end;

const
   S1: PChar = ''''?????????'''';
   S2: PChar = ''''????????'''';
var
   S: string;
begin
   if StrLIComp( S1, S2, 5) = 0 then S:= ''''?????'''' else S:= ''''????????'''';
   MessageDlg( S1 + #13 + S2 + #13 + ''''?????? '''' + IntToStr( I) + '''' ???????? ????? '''' + S, mtInformation, [mbOk], 0);
end;
-----------------------------------------------------------------------------
StrLower   将字串全部转为小写字母.
-----------------------------------------------------------------------------
Unit  SysUtils
函数原型 function StrLower(Str: PChar): PChar;
范例  uses SysUtils;
   const
     S: PChar = ''''A fUnNy StRiNg''''
   begin
     Canvas.TextOut(5, 10, StrPas(StrLower(S)) + '''' '''' +
    StrPas(StrUpper(S)));
   end;
-----------------------------------------------------------------------------
StrMove   从来源字串拷贝n个Bytes到目爬r串.(不含终止位元)
-----------------------------------------------------------------------------
Unit  SysUtils
函数原型 function StrMove(Dest, Source: PChar; Count:
    Cardinal): PChar;
范例  uses SysUtils;
   function AHeapaString(S: PChar): PChar;
     { Allocate string on heap }
   var
     L: Cardinal;
     P: PChar;
   begin
     StrNew := nil;
     if (S <> nil) and (S[0] <> #0) then
    begin
      L := StrLen(S) + 1;
      GetMem(P, L);
      StrNew := StrMove(P, S, L);
    end;
   end;
   procedure DisposeDaString(S: PChar);
     { Dispose string on heap }
   begin
     if S <> nil then FreeMem(S, StrLen(S) + 1);
   end;
   var
     S: PChar;
   begin
     AHeapaString(S);
     DisposeDaString(S);
   end;
var
   S1, S2: PChar;
begin
   S1:= ''''ABcdEFgh'''';
   StrMove( S2, S1, StrLen( S1) + 1 );
   StrLower( S1);     { S1:= ''''abcdefgh'''' }
   StrUpper( S2);     { S2:= ''''ABCDEFGH'''' }
   MessageDlg( S1 + #13#10 + S2, mtInformation, [mbOk], 0);
end;

-----------------------------------------------------------------------------
StrNew   配置字串空间.
-----------------------------------------------------------------------------
Unit  SysUtils
函数原型 function StrNew(Str: PChar): PChar;
Example
uses Sysutils;
procedure TForm1.Button1Click(Sender: TObject);

var
  Temp: PChar;
begin
  // Allocate memory.
  Temp := StrNew(PChar(Edit1.Text));
  Application.MessageBox(Temp, ''''StrNew, StrDispose Example'''', MB_OK);
  // Deallocate memory.
  StrDispose(Temp);
end;

const
   S: PChar = ''''??????????? ??????'''';
var
   SNew: PChar;
begin
   SNew:= StrNew( S);
   MessageDlg( ''''S: '''' + S + #13 + ''''SNew: '''' + SNew, mtInformation, [mbOk], 0);
   StrDispose(SNew);
end;

##   StrNew, StrDispose Example
-----------------------------------------------------------------------------
StrPas    将 null-terminated 字串转为Pascal-style 字串.
-----------------------------------------------------------------------------
Unit  SysUtils
函数原型 function StrPas(Str: PChar): string;
范例  uses SysUtils;
   const
     A: PChar = ''''I love the smell of Object Pascal in the
     morning.'''';
   var
     S: string[79];
   begin
     S := StrPas(A);
     Canvas.TextOut(10, 10, S);
     { note that the following also works }
     Canvas.TextOut(10, 10, A);
   end;
-----------------------------------------------------------------------------
StrPCopy   拷贝 Pascal-style 字串到null-terminated 字串.
-----------------------------------------------------------------------------
Unit  SysUtils
函数原型 function StrPCopy(Dest: PChar; Source: string): PChar;
范例  uses SysUtils;
   var
     A: array[0..79] of Char;
     S: String;
   begin
     S := ''''Honk if you know Blaise.'''';
     StrPCopy(A, S);
     Canvas.TextOut(10, 10, StrPas(A));
   end;

var
   Source: string;
   Dest: array[0..20] of Char;
begin
   Source:= ''''???????? ??????'''';
   StrPCopy( Dest, Source);
   MessageDlg( Dest, mtInformation, [mbOk], 0);
end;
-----------------------------------------------------------------------------
StrPLCopy  拷贝 Pascal-style 字串到null-terminated 字串.(指定长)
-----------------------------------------------------------------------------
Unit  SysUtils
函数原型 function StrPLCopy(Dest: PChar; const Source: string;
    MaxLen: Cardinal): PChar;
-----------------------------------------------------------------------------
StrPos    子字串在母字串中的位置.(第一个位置)
-----------------------------------------------------------------------------
Unit  SysUtils
函数原型 function StrPos(Str1, Str2: PChar): PChar;
说明  Str1 母字串
   Str2 子字串
Example
uses SysUtils;

procedure TForm1.Button1Click(Sender TObject);
var
  Location: PChar;
begin
  if StrPos(PChar(Edit1.Text), PChar(Edit2.Text)) <> nil
then
    ShowMessage(''''Substring found'''')
  else
    ShowMessage(''''Substring not found'''');
end;
------------------
const
   SubStr: PChar = ''''www'''';
var
   S, R: PChar;
begin
   S:= ''''http://www.atrussk.ru/delphi/'''';
   R:= StrPos(S, SubStr);
   if R<>nil then MessageDlg( R, mtInformation, [mbOk], 0) else
       MessageDlg( ''''?? ????????? ?????? URL!'''', mtError, [mbOk], 0);
end;
-----------------------------------------------------------------------------
StrRScan   子字元在母字串中的位置的下一个位址.
-----------------------------------------------------------------------------
Unit  SysUtils
函数原型 function StrRScan(Str: PChar; Chr: Char): PChar;
范例  { Return pointer to nam

<< 上一页 [21] [22] [23] [24] [25] [26] [27] [28] [29] [30] ... 下一页 >>

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程： Delphi中预想不到的代码

下一篇教程： Delphi数据库的动态建立

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……