جستجوی رشته ای در دیگری ؟؟؟

[رها]

سلام.
یه سوال برا من پیش اومده که فکر می کنم خیلی ابتداییه ولی من باهاش مشکل دارم.
راستش می خواهم بدونم ساده ترین راه برای پیداکردن یک رشته دررشته دیگر وکپی کردن اون توی یه متغیر رشته ای جدید در دلفی چیه.
البته من جستجو کردم ولی چیزی پیدانکردم اگه قبلاْ مطرح شده لینکش رو لطف کنید.
منون و متشکر...

[Delphi-Clinic]

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;

[رها]

سلام.
ازبابت کمکتون ممنون.
خیلی مفید و به موقع بود.
مرسی...