جستجو در متن فایل

[(امید)]

سلام

برای جستجو در متن فایل چکار باید کنم. مثل search این فریم برای مباحث .

متشکرم

[JavanSoft]

می توانید با استفاده از یک Tstring انرا LoadFrom File و بعد با یک حلقه مورد جستجو قراردهید

[(امید)]

آقا محمد اگه ممکنه در مورد جستجو با یک حلقه بیشتر توضیح بدید

ممنونم

[JavanSoft]

TT:=TStringlist.Create;
TT.LoadFromFile('XYZ.Txt');
For I:=0 To TT.Count-1 Do
If Pos('مورد',TT[I])<>0 Then

//Found

[Delphi-Clinic]

سلام

امیدجان این مثال واسه Search and Replace نوشته شده امیدوارم مفید باشه :)



procedure SEARCHAndReplace(aStrList: TStrings; aSEARCHStr, aNewStr: string);
var i : integer;
s1 : string;
p1 : integer;
begin
for i := 0 to aStrList.Count -1 do
begin
s1 := aStrList[i];
Repeat
p1 := pos(aSEARCHStr, s1);
if p1 > 0 then begin
Delete(s1, p1, Length(aSEARCHStr));
Insert(aNewStr, s1, p1);
aStrList[i] := s1;
end;
until p1 = 0;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SEARCHAndReplace(Memo1.Lines,Edit1.Text,Edit2.Text );
end;