جميع اكواد موقع SwissDelphiCenter.ch
#1
السلام عليكم ورحمة الله وبركاتة



اهدي هذه الاكواد المجمعة من موقع www.SwissDelphiCenter.ch الي دلفي للعرب والي جميع الاخوة. بمناسبة افتتاح هذا المنتدي الجديد.

التحميل delphi_codes.rar

بارك الله فيكم ونفع بكم
[-] كل من 2 users say قال شكرا ل Moudey على المشاركة المفيدة
  • zouaidahmed, Tamer17
الرد
#2

مرحبا بك اخي محمود بالمنتدى
رفعت نسخة من الملف DelphiCodes على الموقع يمكن تحميلها من هنا
تجميعة مفيدة جدا باحتوائها اكثر من الف مثال بدلفي في مختلف الميادين
[صورة: delphi_codes.gif]
والسلام عليكم ورحمة الله
الرد
#3
الملف لا يعمل عندي, يعطيني This program cannot display the webpage ما العمل ؟
الرد
#4
metal كتب :الملف لا يعمل عندي, يعطيني This program cannot display the webpage ما العمل ؟

اخي Metal البرنامج يعمل بطريقة صحيحة...
تحياتي Smile
الرد
#5
السلام عليكم ورحمة الله وبركاته
فعلا هذا البرنامج رائع ومفيد جدا وأنا أستعمله منذ زمن
بالنسبة للأخ metal إذا استمر معك نفس المشكل فربما أنت مثبت على جهازك متصفح internet explorer 7
لقد وقع لي نفس المشكل ذات يوم ...
حاول أن تشغل البرنامج على جهاز آخر به internet explorer 6
و أخبرنا بالنتيجة من فضلك
الله يوفق الجميع لما يحبه ويرضاه ... والسلام عليكم
الرد
#6
لا يعمل مع internet explorer 7
الرد
#7
كود حول الجداول و التسجيلات
كود :
;program Project1

{$APPTYPE CONSOLE}

uses
  SysUtils;

TYPE
d=record
         jj:1..31;
         mm:1..12;
         aa:1900..3000;
    end;
stg=record
         nom,prenom,np,nm,adresse,branche,sexe:string[40];
         n:integer;
         datee:d;
    end;
var T:array[1..3]of stg;
nom,prenom,np,nm,adresse,branche,sexe:string;
r,i:integer;

begin
r:=0;
for i:=1to 3 do
with T[i] do
begin
write('entrer le nom:');readln(nom);
write('entrer le prenom:');readln(prenom);
with datee do
begin
write('entrer le Jour:');readln(jj);
write('entrer le mois:');readln(mm);
write('entrer le Anneé:');readln(aa);
end;
write('entrer le nom pére:');readln(np);
write('entrer le nom méere:');readln(nm);
write('entrer le branche:');readln(branche);
write('entrer l adresse:');readln(adresse);
writeln('entrer sexe:');readln(sexe);
if adresse='reguiba' then
begin
     r:=r+1;

     end;

end;
     writeln('r=',r);
     for i:=1to 3 do
     writeln('le non est',(t[i].nom));
     readln;readln;
end.
الرد
#8
الملف لا يعمل عندي, يعطيني This program cannot display the webpage ما العمل ؟
رد مع اقتباس
الرد
#9
الملف لا يعمل عندي !
حذفت الاكسبلورر وحملت الاكسبلورر 6 ولافيه فائده ؟
الحل جزيتم خيراً
الرد
#10
مشكلة عدم ظهور الصفحة ترجع الى الانترنت اكسبلورر
وصادف ذات مرة ان وجدت نفس المشكلة
ووجدت لها الحل شئ مثل التغيير في اعدادات الاكسبلورور او في الريجستري
لا اذكر الان
ولكن اعتقد تحتاجون البحث عن تغيير هذه الاعدادات بدل من تغيير الاكسبلورر كاملا

كود :
https://support.microsoft.com/en-us/help/902225/you-cannot-open-html-help-files-from-internet-explorer-after-you-install-security-update-896358-or-windows-server-2003-service-pack-1
وهذا شرح من مايكروسفت عن المشكلة والحل لها

كود :
Resolution for end users

Warning If you are prompted to open or to save a .chm file from a Web site, you should do so only if you need the file and if you trust the Web site that is providing the file.


In the File Download dialog box, click Save, and then choose where you want to save the .chm file. Then, use one of the following methods:
Method 1

Double-click the .chm file.
In the Open File-Security Warning dialog box, click to clear the Always ask before opening this file check box.
Click Open.
Method 2

Right-click the CHM file, and then click Properties.
Click Unblock.
Double-click the .chm file to open the file.
Resolution for system administrat

وهنا شرح اخر يقول ان الاداة غير مسجلة 

كود :
http://www.helpsmith.com/chm-cannot-be-displayed.php
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم