[viv]

اضافة بسيطة اخ سعود ستفيدك على كل ماسبق لتحري السهولة فقط ولفتح المخيلة على امور وطرق اخرى

   

حيث قمنا باظهار اسم السورة من رقمها وحفظنا اسماء السور في اداة بدل من مصفوفة وكل هذا بسطر برمجي واحد

كود :

edit2.Text := ListBox1.Items[UpDown1.Position-1]

تعلم البرمجة السابقة المطروحة مطلوب ولكن معرفتك باسلوب ابسط ايضا مطلوب
هذا اسلوبي انا في البرمجة ، ابحث دائما عن السهولة وعن الراحة ، عندما تقود مرسيدس يفضل عدم معاملتها كلاندروفر 
قلت خليني احلبها 

ايضا قراءة ملف نصي ووضعه في اداة List بسطرين برمجيين فقط

كود :

Memo1.Lines.LoadFromFile(ExtractFileDir(Application.ExeName)+ '/str.txt');
ListBox2.Items:=Memo1.Lines

  ReadString.rar (الحجم : 59.31 ك ب / التحميلات : 16)




هناك حسب رايي طريقين للبرمجة
الطريق الطويل والطريق السهل والبسيط
والطرق البسيطة والسهلة بالصحراء تحتاج الى اشخاص جربوا سلك مسالك ودروب مختصرة

هناك من يسلك الطريق الطويل في اخفاء واظهار شئ ووضعه في مؤقت Timer مثال

كود :

Var int:Integer
begin

if int =1 then
begin
self.visbale := true;
int : =0;
end
else
begin
self.visbale := False;
int : =1;
end;

وهناك من يسلك الطريق والمدروب المختصرة بالصحراء

كود :

self.visbale :=not self.visable

العلم والالمام مهم (وقال الذي اوتي علم من الكتاب انا اتيك به قبل ان يرتد اليك طرفك)