+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يتم اخفاء الامتداد listbox في XE2 (/showthread.php?tid=12988)
كيف يتم اخفاء الامتداد listbox في XE2 - عَمر - 19-09-2025
السلام عليكم
كيف يتم اخفاء امتداد اللوكيشن داخل listbox
في اصدارات XE
FireMonkey
مثال :
PHP كود :
C:\Users\Lenovo\Desktop\hard\Project1.exe
اريد فقط ان يظهر :
PHP كود :
Project1.exe
RE: كيف يتم اخفاء الامتداد listbox في XE2 - محمد الدرة - 20-09-2025
استخدم الدالة التالية لاخذ اسم الملف فقط
extractfilepath(المسار كامل)
استخدم الدالة التالية لاخذ اسم الملف فقط
extractfilename(المسار كامل)
RE: كيف يتم اخفاء الامتداد listbox في XE2 - New pad - 23-09-2025
(19-09-2025, 05:57 PM)عَمر كتب : السلام عليكم
كيف يتم اخفاء امتداد اللوكيشن داخل listbox
في اصدارات XE
FireMonkey
مثال :
PHP كود :C:\Users\Lenovo\Desktop\hard\Project1.exe
اريد فقط ان يظهر :
PHP كود :Project1.exe
السلام عليكم
كود :
procedure TForm1.btn1Click(Sender: TObject);
var s: WideString;
begin
s := edt1.Text;
if FileExists(s) then begin
case rg1.ItemIndex of
0: s := ExtractFileExt(s);
1: s := ExtractFilePath(s);
2: s := ExtractFileName(s);
3: s := ExtractFileDrive(s);
end;
lst1.Items.Add(s);
end else
ShowMessage('File not found');
end;كود :
procedure TForm1.FormCreate(Sender: TObject);
const sname = 'text1.txt';
begin
edt1.Text := ExtractFilePath(Application.ExeName) + sname;
end;التحقق من وجود الملف.
استخراج نوعية الملف كـ (.txt ) الى اخره
استخراج مجلد الملف.
استخراج اسم الملف (هو الذي تبحث عنه)
استخراج القرص الذي فيه الملف.