当前位置:七道奇文章资讯编程技术Delphi编程
日期:2011-03-20 18:14:00  来源:本站整理

Delphi6函数大全(2)[Delphi编程]

赞助商链接



  本文“Delphi6函数大全(2)[Delphi编程]”是由七道奇为您精心收集,来源于网络转载,文章版权归文章作者所有,本站不对其观点以及内容做任何评价,请读者自行判断,以下是其具体内容:

  Delphi6函数大全2-SysUtils.pas

  首部 function Languages: TLanguages; $[SysUtils.pas
  功效 返回系统语言对象
  阐明 通过此函数可以得到系统的语言环境
  参考 type SysUtils.TLanguages
  例子
  ///////Begin Languages
  procedure TForm1.Button1Click(Sender: TObject);
  var
  I: Integer;
  begin
  Memo1.Clear;
  for I := 0 to Languages.Count - 1 do
  Memo1.Lines.Add(Languages.Name[I]);
  end;
  ///////End Languages
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function AllocMem(Size: Cardinal): Pointer; $[SysUtils.pas
  功效 返回一个指定大小Size的内存块
  阐明 配实用FreeMem释放资源
  参考 function System.GetMem
  例子
  ///////Begin AllocMem
  procedure TForm1.Button1Click(Sender: TObject);
  var
  I: PInteger;
  begin
  I := AllocMem(SizeOf(Integer));
  I^ := 100;
  Edit1.Text := IntToStr(I^);
  FreeMem(I, SizeOf(Integer));
  end;
  ///////End AllocMem
  ━━━━━━━━━━━━━━━━━━━━━
  首部 procedure AddExitProc(Proc: TProcedure); $[SysUtils.pas
  功效 增添一个退出处理的历程
  阐明 倡议用finalization部份代替
  参考
  例子
  ////////Begin AddExitProc
  uses
  ShellApi;

  procedure ExitProc;
  begin
  ShellExecute(0, 'Open', 'Calc.exe', nil, nil, SW_SHOW);
  end;

  procedure TForm1.Button1Click(Sender: TObject);
  begin
  AddExitProc(ExitProc);
  end;
  ////////End AddExitProc
  ━━━━━━━━━━━━━━━━━━━━━
  首部 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);
  ━━━━━━━━━━━━━━━━━━━━━


  以上是“Delphi6函数大全(2)[Delphi编程]”的内容,如果你对以上该文章内容感兴趣,你可以看看七道奇为您推荐以下文章:
  • 怎样ASP.NET MVC调用Delphi开辟的Web报表
  • delphi反汇编初探
  • 怎样在vc、delphi中利用mysql(mysql odbc驱动的利用)
  • 怎样在vc、delphi中利用mysql
  • 利用Delphi6的DBExpress组件衔接远程的Mysql数据库
  • Delphi中的Access本领集
  • 在Java与Delphi间交互实现Zlib压缩算法
  • 在C++Builder中利用Delphi文件
  • BCB6/Delphi7下完善调用CHM帮忙
  • BCB及Delphi工程文件扩大名一览
  • 在C++Builder中利用Delphi控件
  • 在Delphi与C++之间实现函数与对象同享
  • 本文地址: 与您的QQ/BBS好友分享!
    • 好的评价 如果您觉得此文章好,就请您
        0%(0)
    • 差的评价 如果您觉得此文章差,就请您
        0%(0)

    文章评论评论内容只代表网友观点,与本站立场无关!

       评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论
    Copyright © 2020-2022 www.xiamiku.com. All Rights Reserved .