السلام عليكم
كيف يتم اخفاء امتداد اللوكيشن داخل listbox
في اصدارات XE
FireMonkey
مثال :
PHP كود :
C:\Users\Lenovo\Desktop\hard\Project1.exe
اريد فقط ان يظهر :
استخدم الدالة التالية لاخذ اسم الملف فقط
extractfilepath(المسار كامل)
استخدم الدالة التالية لاخذ اسم الملف فقط
extractfilename(المسار كامل)
(19-09-2025, 05:57 PM)عَمر كتب : [ -> ]السلام عليكم
كيف يتم اخفاء امتداد اللوكيشن داخل listbox
في اصدارات XE
FireMonkey
مثال :
PHP كود :
C:\Users\Lenovo\Desktop\hard\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 ) الى اخره
استخراج مجلد الملف.
استخراج اسم الملف (هو الذي تبحث عنه)
استخراج القرص الذي فيه الملف.