بحث بجزء من الكلمة في الكمبيوتر

السلام عليكم

للبحث في string

POS(فري,فريق)

اما ادا كنت تبحث عن لاحقة ملف extension فهناك مكتبة كاملة لتسيير الملفات

مثلا

procedure TForm1.Button1Click(Sender: TObject);
Var Chemin : String;
	Info   : TSearchRec;
begin
  ListBox1.Items.Clear;
  ListBox2.Items.Clear;

  { Pour être sur que la barre oblique finisse le nom du chemin }
  Chemin := IncludeTrailingPathDelimiter(Edit1.Text);

  { Recherche de la première entrée du répertoire }
  If FindFirst(Chemin+'*.*',faAnyFile,Info)=0 Then
  Begin
	Repeat
	  { Les fichiers sont affichés dans ListBox1 }	
	  { Les répertoires sont affichés dans ListBox2 }
	  If Not((Info.Attr And faDirectory)=0)
		Then ListBox2.Items.Add(Info.FindData.cFileName)
		Else ListBox1.Items.Add(Info.FindData.cFileName)

	  { Il faut ensuite rechercher l'entrée suivante }
	Until FindNext(Info)<>0;

	{ Dans le cas ou une entrée au moins est trouvée il faut }
	{ appeler FindClose pour libérer les ressources de la recherche }
	FindClose(Info);
  End;
end;

بسم الله الرحمن الرحيم

تصحيح بسيط

للبحث في string

POS('فري','فريق')

شكرا علي الرد

ولكنك لم تفهم قصدي البحث لدي يعمل جيدا يقوم البحث بنفس الكلمة انا اريد ان يتم البحث بتطابق جزء من الكلمة

حيث يتم ادخال اسم الملف + الامتداد في edit

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

فقط عوض الجزء الناقص من اسم الملف ب *

والسلام عليكم ورحمة الله

شكرا جزيلا