Find and Replace در Memo ؟؟؟

[nasr]

سلام
من یه برنامه نوشتم و برای فیلدهای Memo از RichEdit استفاده کردم و برای اون مثل برنامه های آفیس FindAndReplace گذاشتم و هیچ مشکلی هم نداشت
بعد با این RichEdit مشکلات زیادی داشتم که بالاخره تصمیم گرفتم از DBMemo استفاده کنم حالا اون FindAndReplace توی Memo کار نمی کنه
آیا شما برنامه ای برای FindAndReplace توی Memo ندارید یا یه راهنمایی بکنید که چگونه درست کنم
خدا خیرتون بده انشاالله

[مهدی کرامتی]

دوست عزیز،

عدم انتخاب تیتر مناسب میتواند باعث حذف تاپیک شما شود. رعایت شود.

این دفعه رو من براتون اصلاح کردم، اما مواظب دفعه بعد باشید.

[Mahdiseif]

سلام
ببین این کد بدردت میخورد


procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
s1: string;
SearchStr: string;
NewStr: string;
place: integer;
begin
SearchStr := Edit1.Text;
NewStr := Edit2.Text;
for i := 0 to Memo1.Lines.Count - 1 do
begin
s1 := Memo1.Lines[i];
repeat
Place := pos(SearchStr, s1);
if place > 0 then
begin
Delete(s1, Place, Length(SearchStr));
Insert(NewStr, s1, Place);
Memo1.Lines[i] := s1;
end;
until
place = 0;
end;
end;