PDA

View Full Version : کد نویسی جستجو در متن در دلفی 7



مشتاق پور
سه شنبه 11 مهر 1396, 19:28 عصر
با سلام به کد نویسی نیاز دارم که مثلا در یک آدرس یا یک جمله در edit یک کلمه را جستجو کند
مثلا علی به مدرسه می رود . کلمه علی را جستجو کند که ایا علی در جمله edit نوشته شده هست یا خیر

persia_hrn
چهارشنبه 12 مهر 1396, 15:08 عصر
با سلام
کامپوننت های زیر رو روی فرم بذارید :
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 کلیک کنید .

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

persia_hrn
پنج شنبه 20 مهر 1396, 11:26 صبح
باسلام
پست زیر در همین رابطه هست ، تشخیص و محاسبه اعداد :
http://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#post2378012
(http://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#post2378012)
اینم یه نمونه کد :
یک 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;

khoshblagh
پنج شنبه 20 مهر 1396, 14:01 عصر
با سلام
کدی که شما ارائه نمودی مشکل دارد.

persia_hrn
جمعه 21 مهر 1396, 10:18 صبح
سلام , لطفاً بنویسید چه مشکلی داره ؟

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

khoshblagh
جمعه 21 مهر 1396, 16:28 عصر
با سلام کامپایل نمیشود! با xe4 کمپایل نمیشود.

146710

persia_hrn
شنبه 22 مهر 1396, 13:48 عصر
سلام
من دلفی 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 کار میکنم و این موضوع رو تا حالا ندیده بودم و بهتره بذاریم یکی از اساتیدی که با دلفی ورژن های بالاتر کار میکنن جواب بدن .

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

khoshblagh
شنبه 22 مهر 1396, 14:31 عصر
با سلام
این یونیتها توسط کامپایلر اضافه شده ، حتی اگر موارد ذکر شده را حذف کنیم، کامپایر دوباره آنرا به بخش یوز اضافه میکند. و مسئله حل نشده باقی ماند. متشکرم

persia_hrn
شنبه 22 مهر 1396, 14:44 عصر
با درود
من مشکلی با این کد ندارم و خیلی عجیبه که شما با ارور روبرو میشید !!!!

146737