Printable View
چند خط کد نویسی کنید تا دیگه تکراری نده. تابع آماده وجود ندارهنقل قول:
ولی با random هنوز مشکل دارم مثلا 1و2و3و4را می خواهم 3و4و2و1و....ولی تکراری همچنان میدهد.در forme create تابعrandomizeو در buttonتابع random را صدا زدم ولی باز مشکل دارد.و تکراری میدهد مثلا 2و2و3و4
دوست عزیز ممنون از کمکتان.
تو زبان c یا فکر کنم چنین خاصیتی بود برای همین پرسیدم.
:11:
من وقتی سایتمو آپلود می کنم با php با پیغام زیر مواجه می شم لطفا منو راهنمایی کنید ........
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
در حال حاضر مشکلي در ارتباط با تنظيمات بانک اطلاعاتي وجود دارد
اگر دقت داشته باشي اينجا فروم دلفي نه php
با عرض سلام و خسته نباشید :
یه برنامه ضروری و حیاتی لازم دارم اگه بفرستید ممنون و سپاسگزارم.
یه برنامه که تاریخ میلادی و قمری رو به شمسی تبدیل کنه
ضروری و حیاتیه خواهش دارم کمک کنید
سلام دوست عزیزنقل قول:
به تاپیک های مشابه سر بزنید شاید به نتیجه برسید...
کد:http://forum.p30world.com/showthread.php?t=212701
کد:http://forum.p30world.com/showthread.php?t=4742
اگر جستجو کنید حتمآ پیدا میکنید، چون قبلآ در این تالار گذاشته شده...کد:http://forum.p30world.com/showthread.php?t=212701
موفق باشید
:11:ممنون ومتشکر دوست عزیز
با سلام از دوستان....
يك متغيير از نوع Cardinal دارم... مي خوام اونو به صورت String نمايش بدم... چي كار بايد بكنم؟
من اونو با IntToStr تبديل مي كنم ....ولي ميخوام مبناي Hex باشه...
با تشكر...
سلامنقل قول:
از تابع IntToHex استفاده كنيد.
نتيجه رشته است.
کد:IntToHex(intCard,2);
سلام دوستان،
من کامپوننت quick report برای delphi 2007 رو از کجا میتونم گیر بیارم؟
سلام...نقل قول:
سلام
از تابع IntToHex استفاده كنيد.
نتيجه رشته است.
خيلي لطف كردين...
خداوند بر علمتان بيفزاد...:)
خيلي هم خوبه
با سلام...
من مي خوام يك فايل رو كه از OpenDialog بدست مياد رو آدرسش رو به صورت 16bit FileName درش بيارم...
...با تشكر
سلامنقل قول:
يعني چي؟ منظورتان Long FileName و Short FileName است؟
کد:uses
Windows, SysUtils;
function GetShortName(sLongName: string): string;
var
sShortName: string;
nShortNameLen: integer;
begin
SetLength(sShortName, MAX_PATH);
nShortNameLen := GetShortPathName(PChar(sLongName),
PChar(sShortName), MAX_PATH - 1);
if nShortNameLen = 0 then
begin
{ handle errors... }
end;
SetLength(sShortName, nShortNameLen);
Result := sShortName;
end;
function GetLongName(sShortName: string; var bError: boolean): string;
var
bAddSlash: boolean;
SearchRec: TSearchRec;
nStrLen: integer;
begin
bError := False;
Result := sShortName;
nStrLen := Length(sShortName);
bAddSlash := False;
if sShortName[nStrLen] = '\' then
begin
bAddSlash := True;
SetLength(sShortName, nStrLen - 1);
dec(nStrLen);
end;
if ((nStrLen - Length(ExtractFileDrive(sShortName))) > 0) then
begin
if FindFirst(sShortName, faAnyFile, SearchRec) = 0 then
begin
Result := ExtractFilePath(sShortName) + SearchRec.name;
if bAddSlash then
begin
Result := Result + '\';
end;
end
else
begin
// handle errors... bError := True;
end;
FindClose(SearchRec);
end;
end;
ببخشيد كه اين سوال رو ميكنم:
من شروع كردم به برنامه نويسي البته الگوريتم و c++ ولي اطلاعي در مورد دلفي ندارم كسي ميتواند توضيح مختصري از اين زبان و كاربرد آن بگويد؟
با تشكر
با سلام :11:
چه جوري بايد يه كامپوننت رو تو دلفي نصب كنيم؟ بعد نصب چه جوري بذاريم تو فرم؟ موقع انتقال فايل exe اي كه از اين كامپونت توش استفاده شده انتقال كامپوننت هم لازمه؟
ممنون ميشم اگه جواب بدين:20:
سلام
براي نصب معمولا از منوي Component گزينه Install Component را انتخاب كنيد و يا Install Packages
براي استفاده كافيه كامپوننت را بكشيد و بيندازيد روي فرم.
خير نيازي نيست.
قصد نصب كامپوننت خاصي را داريد يا بصورت كلي پرسيديد؟
من تو هنگ همون unzip كردن يه فايل zip پسورد دار با دلفي موندم!نقل قول:
اگه ميشه بيشتر كمك كن!:43:
کد:http://forum.p30world.com/showthread.php?t=245320
سلام دوست عزيز...نقل قول:
سلام
يعني چي؟ منظورتان Long FileName و Short FileName است؟
آره منظورم همين بود و جواب شما درست بود و جواب داد...
NoneForce عزيز واقعا نميدونم چه شكلي ازت تشكر كنم! :43:
ولي بازم ميگم ازت خيلي خيلي ممنونم :11:
فقط يه مشكلي كه هست اينه كه هيچ اطلاعي درباره ي نصب كامپونت مخصوصا 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' ا
ديگه نميدونم چيكار كنم!:41:
سلامنقل قول:
فكر كنم كلا مطلب را نگرفتيد.
كافيه VCLZipD7_3.dpk را داخل دلفي باز كنيد(روي فايل دابل كليك كنيد تا توسط دلفي باز شود) ، بعد توي پنجره باز شده اول Compile و بعد Install را بزنيد.
NoneForce عزيز نصب شد! :26:
بالاخره با راهنمايي هاي شما و سماجت خودم نصب شد!
يه مشكل واقها عجيب بود!
هي پيغام خطا ميداد كه :
cannot load package 'VCLZIPD7_3'. It Contains unit ;'kpZcnst,' which is also contained in package 'dclusr70' اديگه اون روي سگ منو بالا آورد! منم رفتم تو پوشه اي كه دلفي نصبه سرچ كردم فايله رو پيدا و پاك كردم! بعد به آسوني آب خوردن VclZip رو نصب كردم! :18:
به خاطر تمام راهنماييهاي شما بسيار ممنونم :11:
با سلام...
مي خواستم طريقه بدست آوردن سريال Biosيا Cpu رو دوستان لطف كنن :)
با تشكر
سلامنقل قول:
کد:http://torry.net/pages.php?id=235
من چند تا مشکل دارم لطفا راهنماییم کنید :
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;
من چند تا مشکل دارم لطفا راهنماییم کنید :
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;
من چند تا مشکل دارم لطفا راهنماییم کنید :
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;
من چند تا مشکل دارم لطفا راهنماییم کنید :
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;
ظاهرا كه مشكلات بد جوري اذيتتون كرده! چرا 4 پست؟
1- كد خطا رو بنويسيد
2- بله، با استفاده از كلاس TCanvas. اما اگر هدفتون رو توضيح بديد شايد راه هاي بهتري هم باشه
3- بله اشتباه هست. چون در حالت عادي نميشه string رو در عبارت case استفاده كرد (با كد نويسي شدني هست)
متغير i رو integer تعريف كنيد و مقدارش رو با خصوصيت itemindex چك كنيد
موفق باشيد
از دوستان اگه ممکن است نمونه سورس برای کامپوننت TVideoGrabber.v7.2.4n یا ورژن های دیگر البته بالاتر بگذارید .
سوال دومم : چطوری می شه محتویات Resource (.Res) یه پروژه را اعم از موزیک و عکس و ... را استخراج کرد ؟
سوال سوم : چطور می تونم در پیغام ها و ... از علائم زیر استفاده کنم :
' , ; , // و ....
سلامنقل قول:
آخه اين ديگه چطور پست زدنيه؟
كجاي اين پست شبيه سوال براي مبتدي ها است؟
خیلی ممنون از همه ی دوستان خصوصا نان فورس جان بی زحمت کار مارو راه بندازید !!! :31:نقل قول:
یعنی نیست ؟؟؟نقل قول:
آخه من به مشکل خوردم تو کار کردن باهاش یعنی با همه قسمتهاش مشکل دارم اگه یه سورس داشته باشی که کار کردن باهاشو یاد بده خیلی عالی می شه !!!:46:
سلام
من چطوری Quieck Report رو به دلفی اضاف کنم؟
بعد از نصب کردن توی کدوم قسمت قرار می گیره؟
خدااااااااااااااا منو بكش!نقل قول:
کد:http://www.forum.p30world.com/showthread.php?t=167266&highlight=quick+report
کد:http://www.forum.p30world.com/showthread.php?t=159707&highlight=quick+report
سلام
لطفا کمکم کنید
من بیشتر برنامه هایی که می نویسم اصلا اجرا نمیشه یا اینکه فقط 1 بار اجرا میشه . مثلا Run که می کنم خود محیط برنامه رو نشون می ده . بعضی مواقع 1 پیامی میده که نمیتونه کامپیل کنه .
مشکل چیه ؟؟؟ برنامه هایی که می نویسم درسته .
1 سوال دیگه . من بانک اطلاعاتی اکسس توی برنامم دارم . با Quick Report که می خوام گزارش بگیرم اصلا نمی تونم فیلد ها رو به لیبیل ها وصل کنم . بانک اطلاعاتی رو با Ado و Sql کار می کنم . لطفا راهنمایی کنید .
ممنون
سلامنقل قول:
كامپايلر هميشه براي كارهاش دليل داره(برخلاف آدم ها) ، ببينيد چه خطايي رخ مي دهد كه برنامه كامپايل نمي شود.
پيغام خطا رو بنويسيدنقل قول:
من بیشتر برنامه هایی که می نویسم اصلا اجرا نمیشه یا اینکه فقط 1 بار اجرا میشه . مثلا Run که می کنم خود محیط برنامه رو نشون می ده . بعضی مواقع 1 پیامی میده که نمیتونه کامپیل کنه .
مشکل چیه ؟؟؟ برنامه هایی که می نویسم درسته .
اگر بعد از خوندن آموزش زير هنوز مشكلي بود بفرماييد:نقل قول:
1 سوال دیگه . من بانک اطلاعاتی اکسس توی برنامم دارم . با Quick Report که می خوام گزارش بگیرم اصلا نمی تونم فیلد ها رو به لیبیل ها وصل کنم . بانک اطلاعاتی رو با Ado و Sql کار می کنم . لطفا راهنمایی کنید .
کد:http://www.forum.p30world.com/showthread.php?t=167266
ببخشيد NoneForce جان. پست شما رو نديدم
پس جواب سوالات من چی شد :( !!!