كيف يتم اخفاء الامتداد listbox في XE2

[عَمر]

السلام عليكم


كيف يتم اخفاء امتداد اللوكيشن داخل listbox
في اصدارات XE
FireMonkey

مثال :

PHP كود :

C:\Users\Lenovo\Desktop\hard\Project1.exe 


اريد فقط ان يظهر :

PHP كود :

Project1.exe 


[محمد الدرة]

استخدم الدالة التالية لاخذ اسم الملف فقط
extractfilepath(المسار كامل)

---

استخدم الدالة التالية لاخذ اسم الملف فقط
extractfilename(المسار كامل)

[New pad]

السلام عليكم


كيف يتم اخفاء امتداد اللوكيشن داخل 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 ) الى اخره
استخراج مجلد الملف.
استخراج اسم الملف (هو الذي تبحث عنه)
استخراج القرص الذي فيه الملف.