كيف أجعل الرابط يتغيل الى + 1 بعد كل نقره

[tak512]

السلام عليكم
بسم الله وعلى بركة الله
صنعت متصفح استعمله لاستعراض صور في ملفات وأوقفني مشكل وهذه الصورة توضح الأمر

كيف أجعل الرابط يتغيل الى + 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
الى آخره

[DeadC0der]

و عليكم السلام ،
هناك عدة طرق لتحقيق فكرتك ، يمكنك اعلان عن 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; 


و في النهاية ان اكون افدتك و لو بالقليل

[tak512]

شكرا جزيا أخي DeadC0der سوف أجربها .

[DeadC0der]

باامناسبة اذا وجدت اي مشكلة في تطبيق أو فهم هذا الكود فلا تتردد في السؤال :p

[S.FATEH]

و من ثم و في حدث OnCreate تعطيه قيمة أولية

PHP كود :

procedure TForm1.FormCreate(Sender: TObject);
begin
 x:=0;
end; 


لا حاجة الى اعطاء قيمة اولية لانك عرفت المتغير كتغير global دلفي ينوب عنك في ذلك اقرأ عن delphi variable initialization

سلامي

[tak512]

تفضل أخي 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
والى آخر صورة في الملف

[M_Mori2010]

السلام عليكم ورحمة الله وبركاته..

اخي الكريم لا اعلم اذا كان هذا ماتريده لكن تفضل ممكن ان تجد حلك في هذه الفكرة

[DeadC0der]

لا حاجة الى اعطاء قيمة اولية لانك عرفت المتغير كتغير global دلفي ينوب عنك في ذلك اقرأ عن delphi variable initialization

سلامي

شكرا اخي على الفكرة لم اكن اعلمها حتى الآن كنت اعرف فقط أنه يمكنك فقط عند تعريف متفير في ذلك القسم انه يمكنك اعطاءه قيمة أولية مع التعريف على عكس المتغيرات المحلية

[tak512]

شكرا أخي M_Mori2010 سأحاول إقتباس حل لمشكلتي من فكرتك .
شكرا جزلا على المجهود .

[S.FATEH]

شكرا اخي على الفكرة لم اكن اعلمها حتى الآن كنت اعرف فقط أنه يمكنك فقط عند تعريف متفير في ذلك القسم انه يمكنك اعطاءه قيمة أولية مع التعريف على عكس المتغيرات المحلية

ما قلت صحيح لكن بما انك استعملت الصفر 0 فلاحاجة لذلك لانه القيمة الافتراضية كلما قللت من الكود كلما كان الوقوع في الخطأ بعيد:confused: