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

[NoneForce]

NoneForce عزيز واقعا نميدونم چه شكلي ازت تشكر كنم! :43:
ولي بازم ميگم ازت خيلي خيلي ممنونم
فقط يه مشكلي كه هست اينه كه هيچ اطلاعي درباره ي نصب كامپونت مخصوصا VclZip ندارم! اونجور كه شما گفتي اينكارا رو ميكنم:

Component --> Install Component --> Into New package

بعد تو قسمت Unit file name و Package file name ادرس فايل pas و dpk رو كه به همراه فايلاي ديگه ي داخل فولدش دانلود كردم رو ميدم در قسمت Package description هم مينويسم VclZip ولي موقع ساختن Package اين پيغام خطا رو ميده:

cannot load package 'VCLZIPD7_3'. It Contains unit ;'kpZcnst,' which is also contained in package 'dclusr70' ا

ديگه نميدونم چيكار كنم!

سلام
فكر كنم كلا مطلب را نگرفتيد.
كافيه VCLZipD7_3.dpk را داخل دلفي باز كنيد(روي فايل دابل كليك كنيد تا توسط دلفي باز شود) ، بعد توي پنجره باز شده اول Compile و بعد Install را بزنيد.

[shayan_p30]

NoneForce عزيز نصب شد!
بالاخره با راهنمايي هاي شما و سماجت خودم نصب شد!
يه مشكل واقها عجيب بود!
هي پيغام خطا ميداد كه :

cannot load package 'VCLZIPD7_3'. It Contains unit ;'kpZcnst,' which is also contained in package 'dclusr70' ا

ديگه اون روي سگ منو بالا آورد! منم رفتم تو پوشه اي كه دلفي نصبه سرچ كردم فايله رو پيدا و پاك كردم! بعد به آسوني آب خوردن VclZip رو نصب كردم!
به خاطر تمام راهنماييهاي شما بسيار ممنونم

[SadeghPM]

با سلام...
مي خواستم طريقه بدست آوردن سريال Bios‌يا Cpu رو دوستان لطف كنن
با تشكر

[NoneForce]

با سلام...
مي خواستم طريقه بدست آوردن سريال Bios‌يا Cpu رو دوستان لطف كنن
با تشكر

سلام

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

[satin]

من چند تا مشکل دارم لطفا راهنماییم کنید :
1 – توی دلفی 1 فورم که میسازم بیشتر مواقع اصلا Run نمیشه و پیام میده که قادر نیست برنامه رو کامپایل کنه . اگه از تمام اجزا کپی بزنم توی 1 فرم دیگه اجرا میشه و بعد از مدت کمی مثل قبل می شه . مشکل مجاست ؟؟؟
2- توی دلفی می تونم شکل ترسیم کنم . مثلا 1 جدول بکشم
3- من 1 دونه ComboBox دارم . می خوام وقتی که هر کدوم از گزینه هاش انتخاب شد کپشن 1 لیبل بر عوض بشه . آیا این کدی که من نوشتم اشنباه هست ؟؟

کد :

procedure TForm1.ComboBox1Change(Sender: TObject);
var i:string;
begin
i:=ComboBox1.Items[ComboBox1.ItemIndex];
case i of
'string1':Label1.Caption:='payam1';
'string2':Label1.Caption:='payam2';
'string3':Label1.Caption:='payam3';
'string4':Label1.Caption:='payam4';
else
Label1.Caption:='Error'
end;
end;

[satin]

من چند تا مشکل دارم لطفا راهنماییم کنید :
1 – توی دلفی 1 فورم که میسازم بیشتر مواقع اصلا Run نمیشه و پیام میده که قادر نیست برنامه رو کامپایل کنه . اگه از تمام اجزا کپی بزنم توی 1 فرم دیگه اجرا میشه و بعد از مدت کمی مثل قبل می شه . مشکل مجاست ؟؟؟
2- توی دلفی می تونم شکل ترسیم کنم . مثلا 1 جدول بکشم
3- من 1 دونه ComboBox دارم . می خوام وقتی که هر کدوم از گزینه هاش انتخاب شد کپشن 1 لیبل بر عوض بشه . آیا این کدی که من نوشتم اشنباه هست ؟؟

کد :

procedure TForm1.ComboBox1Change(Sender: TObject);
var i:string;
begin
i:=ComboBox1.Items[ComboBox1.ItemIndex];
case i of
'string1':Label1.Caption:='payam1';
'string2':Label1.Caption:='payam2';
'string3':Label1.Caption:='payam3';
'string4':Label1.Caption:='payam4';
else
Label1.Caption:='Error'
end;
end;

[satin]

من چند تا مشکل دارم لطفا راهنماییم کنید :
1 – توی دلفی 1 فورم که میسازم بیشتر مواقع اصلا Run نمیشه و پیام میده که قادر نیست برنامه رو کامپایل کنه . اگه از تمام اجزا کپی بزنم توی 1 فرم دیگه اجرا میشه و بعد از مدت کمی مثل قبل می شه . مشکل مجاست ؟؟؟
2- توی دلفی می تونم شکل ترسیم کنم . مثلا 1 جدول بکشم
3- من 1 دونه ComboBox دارم . می خوام وقتی که هر کدوم از گزینه هاش انتخاب شد کپشن 1 لیبل بر عوض بشه . آیا این کدی که من نوشتم اشنباه هست ؟؟

کد :

procedure TForm1.ComboBox1Change(Sender: TObject);
var i:string;
begin
i:=ComboBox1.Items[ComboBox1.ItemIndex];
case i of
'string1':Label1.Caption:='payam1';
'string2':Label1.Caption:='payam2';
'string3':Label1.Caption:='payam3';
'string4':Label1.Caption:='payam4';
else
Label1.Caption:='Error'
end;
end;

[satin]

من چند تا مشکل دارم لطفا راهنماییم کنید :
1 – توی دلفی 1 فورم که میسازم بیشتر مواقع اصلا Run نمیشه و پیام میده که قادر نیست برنامه رو کامپایل کنه . اگه از تمام اجزا کپی بزنم توی 1 فرم دیگه اجرا میشه و بعد از مدت کمی مثل قبل می شه . مشکل مجاست ؟؟؟
2- توی دلفی می تونم شکل ترسیم کنم . مثلا 1 جدول بکشم
3- من 1 دونه ComboBox دارم . می خوام وقتی که هر کدوم از گزینه هاش انتخاب شد کپشن 1 لیبل بر عوض بشه . آیا این کدی که من نوشتم اشنباه هست ؟؟

کد :

procedure TForm1.ComboBox1Change(Sender: TObject);
var i:string;
begin
i:=ComboBox1.Items[ComboBox1.ItemIndex];
case i of
'string1':Label1.Caption:='payam1';
'string2':Label1.Caption:='payam2';
'string3':Label1.Caption:='payam3';
'string4':Label1.Caption:='payam4';
else
Label1.Caption:='Error'
end;
end;

[F A R H A D]

ظاهرا كه مشكلات بد جوري اذيتتون كرده! چرا 4 پست؟
1- كد خطا رو بنويسيد
2- بله، با استفاده از كلاس TCanvas. اما اگر هدفتون رو توضيح بديد شايد راه هاي بهتري هم باشه
3- بله اشتباه هست. چون در حالت عادي نميشه string رو در عبارت case استفاده كرد (با كد نويسي شدني هست)
متغير i رو integer تعريف كنيد و مقدارش رو با خصوصيت itemindex چك كنيد
موفق باشيد

[Morteza_SOS]

از دوستان اگه ممکن است نمونه سورس برای کامپوننت TVideoGrabber.v7.2.4n یا ورژن های دیگر البته بالاتر بگذارید .