+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Pascal/Delphi (http://parsicoders.com/forumdisplay.php?fid=45)
+---- انجمن: Delphi (http://parsicoders.com/forumdisplay.php?fid=69)
+---- موضوع: بدست اوردن نام فایل مسیر فایل و پسوند فایل در دلفی با تابع ExtractFileDir (/showthread.php?tid=516)
بدست اوردن نام فایل مسیر فایل و پسوند فایل در دلفی با تابع ExtractFileDir - Amin_Mansouri - 07-10-2011
Example code : Extract all of the parts of a full file name
بدست اوردن نام فایل مسیر فایل و پسوند فایل در دلفی با تابع ExtractFileDir
کد:
// 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 ExtractFileDir 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.RE: بدست اوردن نام فایل مسیر فایل و پسوند فایل در دلفی با تابع ExtractFileDir - semej - 04-27-2013
سلام
دوست عزیز از این کد استفاده کردم ولی هیچی نمیشه.
RE: بدست اوردن نام فایل مسیر فایل و پسوند فایل در دلفی با تابع ExtractFileDir - Amin_Mansouri - 04-27-2013
درود
دوست عزیز در این خط کد :
کد:
fullFileName := 'C:\Program Files\Borland\Delphi7\Projects\Unit1.dcu';ادرس فایل خودتون رو بدید
کار میکنه