+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أجعل الرابط يتغيل الى + 1 بعد كل نقره (/showthread.php?tid=5022)
الصفحات:
1
2
كيف أجعل الرابط يتغيل الى + 1 بعد كل نقره - tak512 - 16-03-2013
السلام عليكم
بسم الله وعلى بركة الله
صنعت متصفح استعمله لاستعراض صور في ملفات وأوقفني مشكل وهذه الصورة توضح الأمر
كيف أجعل الرابط يتغيل الى + 1 بعد كل نقره مثلا
http://127.0.0.1/2009/002.jpg
بعد النقر
http://127.0.0.1/2009/003.jpg
بعد النقر
http://127.0.0.1/2009/004.jpg
بعد النقر
http://127.0.0.1/2009/005.jpg
الى آخره
كيف أجعل الرابط يتغيل الى + 1 بعد كل نقره - DeadC0der - 16-03-2013
و عليكم السلام ،
هناك عدة طرق لتحقيق فكرتك ، يمكنك اعلان عن Global Vraibale
PHP كود :
var
Form1: TForm1;
x:cardinal;
و من ثم و في حدث OnCreate تعطيه قيمة أولية
PHP كود :
procedure TForm1.FormCreate(Sender: TObject);
begin
x:=0;
end;
الآن في حدث OnClick أصف هذا الكود
PHP كود :
procedure TForm1.btn1Click(Sender: TObject);
var str:string;
begin
Inc(x);
str:=format('http://127.0.0.1/2009/%0.3d.jpg',[x]);
end;
و في النهاية ان اكون افدتك و لو بالقليل
كيف أجعل الرابط يتغيل الى + 1 بعد كل نقره - tak512 - 16-03-2013
شكرا جزيا أخي DeadC0der سوف أجربها .
كيف أجعل الرابط يتغيل الى + 1 بعد كل نقره - DeadC0der - 16-03-2013
باامناسبة اذا وجدت اي مشكلة في تطبيق أو فهم هذا الكود فلا تتردد في السؤال :p
كيف أجعل الرابط يتغيل الى + 1 بعد كل نقره - S.FATEH - 16-03-2013
DeadC0der كتب :و من ثم و في حدث OnCreate تعطيه قيمة أولية
PHP كود :procedure TForm1.FormCreate(Sender: TObject);
begin
x:=0;
end;
لا حاجة الى اعطاء قيمة اولية لانك عرفت المتغير كتغير global دلفي ينوب عنك في ذلك اقرأ عن delphi variable initialization
سلامي
كيف أجعل الرابط يتغيل الى + 1 بعد كل نقره - tak512 - 16-03-2013
تفضل أخي OnCreate
مشروعلي في المرفاقات أود ان تساعدني في التعديل الصحيح لم أستوعب جيدا الشرح
حمل المشروع وستفهم جيدا
ولتفهمني أكثر لديا ملفات في سيرفر شخصي كتالي 2009 / 2010 /2011 / 2012 وبها صول مسمات كتالي
001.jpg
002.jpg
003.jpg
أود بعد دخولي الى الملف 2009 مثلا وفتح الوصورة 001.jpg النقر على الزز "الصورة التالية" فيتغير المساسر في edite2.text من
http://127.0.0.1/2009/001.jpg
الى
http://127.0.0.1/2009/002.jpg
والى آخر صورة في الملف
كيف أجعل الرابط يتغيل الى + 1 بعد كل نقره - M_Mori2010 - 16-03-2013
السلام عليكم ورحمة الله وبركاته..
اخي الكريم لا اعلم اذا كان هذا ماتريده لكن تفضل ممكن ان تجد حلك في هذه الفكرة
كيف أجعل الرابط يتغيل الى + 1 بعد كل نقره - DeadC0der - 16-03-2013
s.fateh كتب :لا حاجة الى اعطاء قيمة اولية لانك عرفت المتغير كتغير global دلفي ينوب عنك في ذلك اقرأ عن delphi variable initialization
سلامي
شكرا اخي على الفكرة لم اكن اعلمها حتى الآن كنت اعرف فقط أنه يمكنك فقط عند تعريف متفير في ذلك القسم انه يمكنك اعطاءه قيمة أولية مع التعريف على عكس المتغيرات المحلية
كيف أجعل الرابط يتغيل الى + 1 بعد كل نقره - tak512 - 16-03-2013
شكرا أخي M_Mori2010 سأحاول إقتباس حل لمشكلتي من فكرتك .
شكرا جزلا على المجهود .
كيف أجعل الرابط يتغيل الى + 1 بعد كل نقره - S.FATEH - 17-03-2013
DeadC0der كتب :شكرا اخي على الفكرة لم اكن اعلمها حتى الآن كنت اعرف فقط أنه يمكنك فقط عند تعريف متفير في ذلك القسم انه يمكنك اعطاءه قيمة أولية مع التعريف على عكس المتغيرات المحلية
ما قلت صحيح لكن بما انك استعملت الصفر 0 فلاحاجة لذلك لانه القيمة الافتراضية كلما قللت من الكود كلما كان الوقوع في الخطأ بعيد:confused: