سوالات و آموزش براي مبتدي ها

[bahrami1947]

با سلام لطفا سورس کد برنامه ای که با کلیک روی کلید روشن وبا کیلک دوباره خاموش بشه دردلفی می خواستم با تشکر

[hatam200]

سلام
من یک کد جستجو دارم واسه string جواب میده ولی واه integer جواب نمیده چیکار کنم؟؟؟
اینم کد
procedure TForm11.BitBtn1Click(Sender: TObject);
var b:string;
begin
if edit2.Text<>'' then

begin
if combobox1.ItemIndex=0 then b:='Number Company='''+edit2.Text+'''';
if combobox1.ItemIndex=0 then b:='machin='''+edit2.Text+'''';

Adotable1.Filter:=b;
adotable1.Filtered:=true;
if adotable1.IsEmpty=true then

begin
showmessage(' ÇØáÇÚÇÊ ãæÌæÏ äíÓÊ');
activecontrol:=edit2;
end;
end
else
begin
showmessage(' äÇã ÔÎÕ ãæÑÏ äÙÑ ÑÇ æÇÑÏ ßäíÏ');
activecontrol:=edit2;
end;
end;

[hamidjan88]

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

[hatam200]

کسی جواب سوال منو نداد

[*Batman*]

کسی جواب سوال منو نداد

اگر Number Company از نوع عددی هستش باید محتوی Edit رو به نوع عددی تبدیل کنید :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

ایندکس ComboBox هم درست نیست.برای هر دو صفر گذاشتید.
مقادیر عددی QuotedStr نیاز ندارن.

[hatam200]

مرسی از جوابتون
ولی واسه من کار نکرد.
اگه میشه ی کد سرچ واسم بزارید ممنون میشم خیلی احتیاجش دارم

[mb110]

سلام ممنون از آموزشتون من تازه دلفی 2010 یاد گرفتم باهاش هم یه نرم افزار بایگانی نامه ها نوشتم. فقط یه مشکلی دارم از کد زیر برای جستجو استفاده کردم ولی جواب نمیده: var s:string; begin if Edit1.text'' then begin if ComboBox1.ItemIndex=0 then s:='شماره نامه='''+Edit1.Text+''''; if ComboBox1.ItemIndex=1 then s:='شماره ثبت='''+Edit1.Text+''''; if ComboBox1.ItemIndex=2 then s:='موضوع نامه='''+Edit1.Text+''''; ADOTable1.Filter:=s; ADOTable1.Filtered:=true; if ADOTable1.isempty=true then begin showmessage('مقداری وارد نشده است'); Activecontrol:=Edit1; end; end else begin showmessage('مقدار مورد نظر خود را وارد کنید'); ActiveControl:=Edit1; end; end; یه مشکل دیگه هم دارم . دنبال کدی می گردم تا بتونم مستقیم نامه ها را اسکن کنم و با کلیک روی هر نامه، عکس نامه ی اسکن شده را نمایش بده. از DBImage استفاده کردم openPD1.Execute; DBImage1.Picture.LoadFromFile(OpenPictureDialoge1. FileName);

[maryam77.m]

سلام خسته نباشید من بایدیه ماشین حساب ساده تودلفی درست کنم.محیطشوطراحی کردم ولی تونوشتن کداش مشکل دارم

[مرد مباح]

دوست عزیز. مطمنا کسی نمیتونه تمام کدها رو برات بزاره. لطفا مشکلت رو بنویس توی چه زمینه ای هست تا راهنماییت کنیم.

[nole]

بشششششش بببببببببببب