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


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

DELPHI常用函数集及简要范例

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

(F1) do
      begin
        Read(F1, Ch);
        Write(F2, Ch);
      end;
      CloseFile(F2);
    end;
    CloseFile(F1);
  end;
end;
-----------------------------------------------------------------------------
OpenPictureDialog  OpenDialog  开启档案.
-----------------------------------------------------------------------------
//SavePictureDialog1.DefaultExt := GraphicExtension(TBitmap);
//SavePictureDialog1.Filter := GraphicFilter(TBitmap);

procedure TForm1.Button1Click(Sender: TObject);
var
Done: Boolean;
begin
  OpenPictureDialog1.DefaultExt := GraphicExtension(TIcon);
  OpenPictureDialog1.FileName := GraphicFileMask(TIcon);
  OpenPictureDialog1.Filter := GraphicFilter(TIcon);
  OpenPictureDialog1.Options := [ofFileMustExist, ofHideReadOnly, ofNoChangeDir ];
  while not Done do
  begin
  if OpenPictureDialog1.Execute then
    begin
    if not (ofExtensionDifferent in OpenPictureDialog1.Options) then

      begin
      Application.Icon.LoadFromFile(OpenPictureDialog1.FileName);
      Done := True;
      end
    else
      OpenPictureDialog1.Options := OpenPictureDialog1.Options - ofExtensionDifferent;
    end
  else { User cancelled }
    Done := True;
  end;
end;

## Eof, Read, Write Example
-----------------------------------------------------------------------------
Erase    删除档案.
-----------------------------------------------------------------------------
Unit  System
函数原型 procedure Erase(var F);
说明  要先关档後才可以执行.
范例  procedure TForm1.Button1Click(Sender: TObject);
   var
     F: Textfile;
   begin
     OpenDialog1.Title := ''''Delete File'''';
     if OpenDialog1.Execute then
    begin
      AssignFile(F, OpenDialog1.FileName);
      try
     Reset(F);
     if MessageDlg(''''Erase '''' + OpenDialog1.FileName +
     ''''?'''',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
       begin
      CloseFile(F);
      Erase(F);
       end;
      except
     on EInOutError do
       MessageDlg(''''File I/O error.'''', mtError, [mbOk], 0);
      end;
    end;
   end;
Example
procedure TForm1.Button1Click(Sender: TObject);

var
  F: Textfile;
begin
  OpenDialog1.Title := ''''Delete File'''';
  if OpenDialog1.Execute then begin
    AssignFile(F, OpenDialog1.FileName);
    try
      Reset(F);
      if MessageDlg(''''Erase '''' + OpenDialog1.FileName + ''''?'''',
        mtConfirmation, [mbYes, mbNo], 0) = mrYes then
      begin
        CloseFile(F);
        Erase(F);
      end;
    except
      on EInOutError do

        MessageDlg(''''File I/O error.'''', mtError, [mbOk], 0);
    end;
  end;
end;
##Erase, OpenDialog.Title, OpenDialog.FileName Example
-----------------------------------------------------------------------------
Rename   更改档名.
-----------------------------------------------------------------------------
Unit  System
函数原型 procedure Rename(var F; Newname);
范例  uses Dialogs;
   var
     f : file;
   begin
     OpenDialog1.Title := ''''Choose a file... '''';
     if OpenDialog1.Execute then
    begin
      SaveDialog1.Title := ''''Rename to...'''';
      if SaveDialog1.Execute then
     begin
       AssignFile(f, OpenDialog1.FileName);
       Canvas.TextOut(5, 10, ''''Renaming '''' +
      OpenDialog1.FileName +'''' to '''' +
      SaveDialog1.FileName);
       Rename(f, SaveDialog1.FileName);
     end;
    end;
   end;
Example
uses Dialogs;
var

   f : file;
begin
   OpenDialog1.Title := ''''Choose a file... '''';
   if OpenDialog1.Execute then begin
     SaveDialog1.Title := ''''Rename to...'''';
     if SaveDialog1.Execute then begin
       AssignFile(f, OpenDialog1.FileName);
       Canvas.TextOut(5, 10, ''''Renaming '''' + OpenDialog1.FileName + '''' to '''' +
         SaveDialog1.FileName);
       Rename(f, SaveDialog1.FileName);
     end;
   end;
end;
-----------------------------------------------------------------------------
GetDir    传回指定磁碟机的目录.
-----------------------------------------------------------------------------
Unit  System
函数原型 procedure GetDir(D: Byte; var S: string);
说明  D
   0=目前磁碟机,1=A磁碟机,2=B磁碟机....
   **此函式不检查磁碟机错误.
范例  var
     s : string;
   begin
     GetDir(0,s); { 0 = Current drive }
     MessageDlg(''''Current drive and directory: '''' + s,
    mtInformation, [mbOk] , 0);
   end;
-----------------------------------------------------------------------------
MkDir    建立子目录.
-----------------------------------------------------------------------------
Unit  System
函数原型 procedure MkDir(S: string);
范例  uses Dialogs;
   begin
     {$I-}
     { Get directory name from TEdit control }
     MkDir(Edit1.Text);
     if IOResult <> 0 then
    MessageDlg(''''Cannot create directory'''', mtWarning,
     [mbOk], 0)
     else
    MessageDlg(''''New directory created'''', mtInformation,
     [mbOk], 0);
   end;
-----------------------------------------------------------------------------
RmDir    删除一个空的子目录.
-----------------------------------------------------------------------------
Unit  System
函数原型 procedure RmDir(S: string);
范例  uses Dialogs;
   begin
     {$I-}
     { Get directory name from TEdit control }
     RmDir(Edit1.Text);
     if IOResult <> 0 then
    MessageDlg(''''Cannot remove directory'''', mtWarning,
     [mbOk], 0)
&n

<< 上一页 [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] ... 下一页 >>

没有相关教程

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

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

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

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

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

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

同类栏目

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

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

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

鄂公网安备 42011102001154号

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

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