المشاركات : 111
المواضيع 37
:
: 0
الإنتساب : Mar 2013
السلام عليكم
اخواني انا مبتدا جدا في الدلفي 7
كيف يتم استخراج اسم ملف من دون امتداداه
هذا العنوان الملف D:\new folder\filetext.txt
اسم ملف من دون الامتداد filetext
و بارك الله فيكم
المشاركات : 3,703
المواضيع 101
:
: 579
الإنتساب : Feb 2008
المشاركات : 111
المواضيع 37
:
: 0
الإنتساب : Mar 2013
بارك الله فيك و لاكن ليس هذا ما ابحث عنه
انظر معي قليلا هذا عنوان ملف كامل
C:\Windows\win32.dll
هذا مسار كامل
الي ابحث عنه هوه كيف يتم استخارج الاسم فقط اي
فقط Win32
و ليس Win32.dll
و بارك الله فيك
المشاركات : 452
المواضيع 69
:
: 0
الإنتساب : Feb 2008
السلام عليكم و رحمة الله
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- نسخ اسم الملف مع تجاهل الجزء الأخير بقيمة طول الامتداد.
المشاركات : 111
المواضيع 37
:
: 0
الإنتساب : Mar 2013
احسنت هذا ما كنت ابحث عنه بارك الله فيك و ليجعله في ميزان حسنتك
