Delphi获取完整文件路径的各部分

最新推荐文章于 2023-02-22 11:40:42 发布

暖暖2021

最新推荐文章于 2023-02-22 11:40:42 发布

阅读量1k

点赞数

分类专栏： Delphi开发文章标签： delphi borland path include ext class

本文链接：https://blog.csdn.net/mylovemoon2010/article/details/7449430

版权

Delphi开发专栏收录该内容

10 篇文章 0 订阅

订阅专栏

代码示例：

// Full Unit code.
// -----------------------------------------------------------
// You must store this code in a unit called Unit1 with a form
// called Form1 that has an OnCreate event called FormCreate.

unit Unit1;

interface

uses
  SysUtils,   // Unit containing the ExtractFileName command
  Forms, Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm} // Include form definitions

procedure TForm1.FormCreate(Sender: TObject);
var
  fullFileName : string;

begin
  // Set up a full file name with drive and path
  fullFileName := 'C:\Program Files\Borland\Delphi7\Projects\Unit1.dcu';

  // Show the component parts of this full name
  ShowMessage('Drive = '+ExtractFileDrive (fullFileName));
  ShowMessage('Dir   = '+ExtractFileDir   (fullFileName));
  ShowMessage('Path  = '+ExtractFilePath  (fullFileName));
  ShowMessage('Name  = '+ExtractFileName  (fullFileName));
  ShowMessage('Ext   = '+ExtractFileExt   (fullFileName));
end;

end.

执行结果：

   Drive = C:
   Dir   = C:\Program Files\Borland\Delphi7\Projects
   Path  = C:\Program Files\Borland\Delphi7\Projects\
   Name  = Unit1.dcu
   Ext   = .dcu

暖暖2021

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
Delphi获取完整文件路径的各部分

代码示例：// Full Unit code.// -----------------------------------------------------------// You must store this code in a unit called Unit1 with a form// called Form1 that has an OnCreate even
复制链接

扫一扫