با سلام به کد نویسی نیاز دارم که مثلا در یک آدرس یا یک جمله در edit یک کلمه را جستجو کند
مثلا علی به مدرسه می رود . کلمه علی را جستجو کند که ایا علی در جمله edit نوشته شده هست یا خیر
با سلام به کد نویسی نیاز دارم که مثلا در یک آدرس یا یک جمله در 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;
آخرین ویرایش به وسیله persia_hrn : پنج شنبه 20 مهر 1396 در 11:45 صبح
با سلام
کدی که شما ارائه نمودی مشکل دارد.
آخرین ویرایش به وسیله khoshblagh : پنج شنبه 20 مهر 1396 در 14:16 عصر
سلام , لطفاً بنویسید چه مشکلی داره ؟
خودم کامپایل میکنم مشکلی نمیبینم !
با سلام کامپایل نمیشود! با xe4 کمپایل نمیشود.
Untitled.png
سلام
من دلفی 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 کار میکنم و این موضوع رو تا حالا ندیده بودم و بهتره بذاریم یکی از اساتیدی که با دلفی ورژن های بالاتر کار میکنن جواب بدن .
انشااله که اساتید همکاری کنن .
با سلام
این یونیتها توسط کامپایلر اضافه شده ، حتی اگر موارد ذکر شده را حذف کنیم، کامپایر دوباره آنرا به بخش یوز اضافه میکند. و مسئله حل نشده باقی ماند. متشکرم
با درود
من مشکلی با این کد ندارم و خیلی عجیبه که شما با ارور روبرو میشید !!!!
Untitled-1.jpg