+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : استخراج اسم ملف من دون الامتداد (/showthread.php?tid=4976)
استخراج اسم ملف من دون الامتداد - Anew - 04-03-2013
السلام عليكم
اخواني انا مبتدا جدا في الدلفي 7
كيف يتم استخراج اسم ملف من دون امتداداه
هذا العنوان الملف D:\new folder\filetext.txt
اسم ملف من دون الامتداد filetext
و بارك الله فيكم
استخراج اسم ملف من دون الامتداد - محمد عبد العزيز - 04-03-2013
http://delphi4arab.net/forum/showthread.php?tid=1159
http://delphi4arab.net/forum/showthread.php?tid=4354
استخراج اسم ملف من دون الامتداد - Anew - 04-03-2013
بارك الله فيك و لاكن ليس هذا ما ابحث عنه
انظر معي قليلا هذا عنوان ملف كامل
C:\Windows\win32.dll
هذا مسار كامل
الي ابحث عنه هوه كيف يتم استخارج الاسم فقط اي
فقط Win32
و ليس Win32.dll
و بارك الله فيك
استخراج اسم ملف من دون الامتداد - STRELiTZIA - 04-03-2013
السلام عليكم و رحمة الله
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;
2- استخراج اسم الملف مع الامتداد.
3- نسخ اسم الملف مع تجاهل الجزء الأخير بقيمة طول الامتداد.
استخراج اسم ملف من دون الامتداد - Anew - 05-03-2013
احسنت هذا ما كنت ابحث عنه بارك الله فيك و ليجعله في ميزان حسنتك