• 0
@hmed

نسخ إسم ملف

سؤال

السلام عليكم

لدي مجموعة من الملفات و أريد أن أنسخ عناوينها ووضعها كقائمة في memo

ولكن النسخ يجب ان يكون من غير إمتداد الملف بمعنا أنه من غير ال .rtf مثلا

و من ثما أحذف مجموعة منهم من خلال القائمة و للعلم كل الملفات بنفس الإمتداد

في إنتظار ردودكم

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

1 إجابات على هذا السؤال .

  • 0

السلام عليكم

نسخ الملفات سهل ومرفق بروسيجر لأتمام ذالك .. علمآ انة يوجد اكثر من طريقة ... اما الأمتداد فقد حذفتة لك باستخدام :

الــ StringReplace

SN := StringReplace(SN, '.txt', '', [rfReplaceAll])

procedure ListFileDir(Path: string; FileList: TStrings);
var
 SR: TSearchRec;
 SN: String;
begin
 if FindFirst(Path + '*txt', faAnyFile, SR) = 0 then
 begin
   repeat
     if (SR.Attr <> faDirectory) then
     begin
     SN := SR.Name;
     SN := StringReplace(SN, '.txt', '', [rfReplaceAll]);
       FileList.Add(SN);
     end;
   until FindNext(SR) <> 0;
   FindClose(SR);
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ListFileDir('C:\WINDOWS\', Memo1.Lines);
end;

وبالتوفيق .

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .