delphi4arab منتديات دلفي للعرب

السلام عليكم
اخواني انا مبتدا جدا في الدلفي 7
كيف يتم استخراج اسم ملف من دون امتداداه
هذا العنوان الملف D:\new folder\filetext.txt
اسم ملف من دون الامتداد filetext
و بارك الله فيكم

http://delphi4arab.net/forum/showthread.php?tid=1159
http://delphi4arab.net/forum/showthread.php?tid=4354

بارك الله فيك و لاكن ليس هذا ما ابحث عنه

انظر معي قليلا هذا عنوان ملف كامل

C:\Windows\win32.dll

هذا مسار كامل

الي ابحث عنه هوه كيف يتم استخارج الاسم فقط اي

فقط Win32

و ليس Win32.dll

و بارك الله فيك

السلام عليكم و رحمة الله

PHP كود :
procedure Tmain.doItBtnClick(Sender: TObject);
var
  extLen: byte;
  fileNameWithoutExt, fileNameWithExt, fileNameSource: string;
begin
  fileNameSource := 'D:\new folder\filetext.txt';
  extLen := Length(System.SysUtils.ExtractFileExt(fileNameSource));
  fileNameWithExt := System.SysUtils.ExtractfileName(fileNameSource);
  fileNameWithoutExt := Copy(fileNameWithExt, 0, Length(fileNameWithExt) - extLen);
end; 

1- الحصول على طول الامتداد.
2- استخراج اسم الملف مع الامتداد.
3- نسخ اسم الملف مع تجاهل الجزء الأخير بقيمة طول الامتداد.

احسنت هذا ما كنت ابحث عنه بارك الله فيك و ليجعله في ميزان حسنتك

Anew

محمد عبد العزيز

Anew

STRELiTZIA

Anew