کد نویسی جستجو در متن در دلفی 7

با سلام به کد نویسی نیاز دارم که مثلا در یک آدرس یا یک جمله در edit یک کلمه را جستجو کند
مثلا علی به مدرسه می رود . کلمه علی را جستجو کند که ایا علی در جمله edit نوشته شده هست یا خیر

با سلام
کامپوننت های زیر رو روی فرم بذارید :
1 عدد Label
2 عدد Edit
1 عدد Button

توی خاصیت OnClick مربوط به button این کد رو بنویسید :

procedure TForm1.Button1Click(Sender: TObject);

begin

if Pos(Edit1.Text,Edit2.Text)<>0 then

 Label1.Caption:='وجود دارد'

else

 Label1.Caption:='وجود ندارد';

end;

کلمه ای که دنبالش می گردید رو توی Edit1 بنویسید .
جمله ای که میخواید توش بگردید رو توی Edit2 بنویسید و بعد روی button کلیک کنید .

با سلام
حالا فرض کنید در یک رشته دنبال یک رشته عددی بگردید و آن نمایش دهید. مثلا تشخیص شماره چک در یک رشته زیر(یعنی تشخیص رشته عددی بدون اینکه شماره خاصی در نظر باشد).
چک شماره 12316454 در وجه آقای حسنی بابت تسویه حساب
فرض بر این است که ما دنبال عدد خاصی نیستیم. هر عددی که در رشته موجود است نمایش داده شود.متشکرم

باسلام
پست زیر در همین رابطه هست ، تشخیص و محاسبه اعداد :
https://barnamenevis.org/showthread.php?542289-%D9%85%D8%AD%D8%A7%D8%B3%D8%A8%D9%87-%DA%A9%D8%B1%D8%AF%D9%86-%DB%8C%DA%A9-%D8%AC%D9%85%D8%B9-%D8%B1%D8%B4%D8%AA%D9%87&p=2378012&viewfull=1#post 2378012

اینم یه نمونه کد :
یک Edit ، یک Label و یک Button بذارید روی فرم

procedure TForm1.Button1Click(Sender: TObject);

var i: integer;

    S, L: string;

begin

For i:=1 to Length(Edit1.Text) do

 begin

  L:=Copy(Edit1.Text,i,1);

  if Pos(L,'0123456789') > 0 then S:=S+L;

 end;

Label1.Caption:=S;

end;

با سلام
کدی که شما ارائه نمودی مشکل دارد.

سلام , لطفاً بنویسید چه مشکلی داره ؟

خودم کامپایل میکنم مشکلی نمیبینم !

با سلام کامپایل نمیشود! با xe4 کمپایل نمیشود.

ضمیمه 146710

سلام
من دلفی xe4 رو ندارم فقط یه چیزی توی قسمت USES دیدم که نمیدونم عادیه یا نه !
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, StdCtrls, Controls,
Classes

اگه نگاه کنید یونیت های تکراری رو با رنگ قرمز مشخص کردم ، نمیدونم این نوع فراخوانی تکراری درسته یا نه ؟
شما این یونیت های تکراری رو حذف کنید شاید درست شد .

من با دلفی 7 کار میکنم و این موضوع رو تا حالا ندیده بودم و بهتره بذاریم یکی از اساتیدی که با دلفی ورژن های بالاتر کار میکنن جواب بدن .

انشااله که اساتید همکاری کنن .

با سلام
این یونیتها توسط کامپایلر اضافه شده ، حتی اگر موارد ذکر شده را حذف کنیم، کامپایر دوباره آنرا به بخش یوز اضافه میکند. و مسئله حل نشده باقی ماند. متشکرم

با درود
من مشکلی با این کد ندارم و خیلی عجیبه که شما با ارور روبرو میشید !!!!

ضمیمه 146737