delphi4arab منتديات دلفي للعرب

السلام عليكم

كيف يمكن إضافة قوائم و صناديق تحرير لبرنامج Console
لكم جزيل الشكر

اسلا عليكم
لا يمكن فعل ذلك أخي
إن أردت برنامجا ذو واجهة رسومية فعلية فعليك إستخدام الـvcl فهي أسهل وأفضل بكثير

يمكن باستخدام Trubo Pascal بناء تطبيقات GUI 16 bit
أنظر في مجلد الأمثلة:

كود :
EXAMPLES\WIN

لا يزال متوفر للتحميل:

كود :
https://downloads.embarcadero.com/free/turbo

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

هل تقصد إضافة قوائم لبرنامج Console مثل الذي في الصورة

[صورة: mprestwood_image_08108_24_Command_Window.png]

:laugh: لا أظن أنه يمكن فعل ذلك .

واجهات DOS العتيقة تعرفونها:

PHP كود :
Uses 
  Crt;

Var
  I, J: Integer;
  X: Real;
  Check: Boolean;

Procedure Menu(I: Integer; Check: Boolean);
Begin
  WriteLn(' ----------------------------------------------------------------');
  WriteLn(' I SuperCalculator 2.5 I');
  WriteLn(' ----------------------------------------------------------------');
  If Check Then
    WriteLn('Faire afficher le menu principal...')
  Else
  Begin
    WriteLn
      (' ----------------------------------------------------------------');
    WriteLn(' I Module : CALCUL DE FONCTION I Page : ', I, ' I');
    WriteLn
      (' ----------------------------------------------------------------');
    WriteLn(' I Valeur de X I Valeur de Y=f(X) I');
    WriteLn(' I I I');
  End;
End;

Function f(X: Real): Real;
Begin
  f := Sqr(X);
End;

BEGIN
  ClrScr;
  I := 0;
  J := 1;
  Check := False;
    Menu(J, Check);
  X := 0;
  Repeat
    Inc(I);
    X := X + 50;
    WriteLn(' I', Round(X): 12, ' I', Round(f(X)): 15, ' I');
    Check := X > 1700;
    If ((I Mod 14) = 0) Or Check Then
    Begin
      WriteLn(' --------------------------------');
      WriteLn(' I Appuyez sur <ENTREE> pour continuer... I');
      Write(' --------------------------------');
      ReadLn;
      ClrScr;
      Inc(J);
      Menu(J, Check);
    End;
  Until Check;
  ReadLn;

END. 

(ينفذ على TP أو BP فقط)
ألم ترى مثلها ؟

بارك الله فيك أستاذ kachwahed على التوضيح

لكن أظن أن تساؤل الأخ husseint كما في الصورة وهو الذي قلت عنه '' لا أظن أنه يمكن فعل ذلك .''

[صورة: mprestwoodimage0810824c.png]

الصورة مركبة فلا تطمع :laugh:

إقتباس : ألم ترى مثلها ؟

بالطبع رأيت و أصبحت أكرهها :laugh:

لكن يمكن عمل تطبيقات Console بالدلفي

[صورة: sanstitreso.jpg]

والسلام عليكم

السلام عليكم

ما أطلبه ليس مستحيلا وأبسط مثال على ذلك هو برنامج التحرير الخاص بالنظام DOS عندما تكتب في سطر الأوامر الأمر Edit , تماماً مثل برنامج Turbo Pascal For Dos مثل الصورة

[صورة: turbon.png]

شكراً على مساهمتك أخي kachwahed لكن المشكلة أن الرابط الذي وضعته لا يعمل معي ثانيا
أنا قمت بتجريب المثال الذي وضعته على Turbo for windows و turbo for dos ولم أستفد شيأً

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

إقتباس :ما أطلبه ليس مستحيلا

و لكنه ليس بالسهل !

أنا قلت '' لا أظن أنه يمكن فعل ذلك .'' فيما يخص مكونات Vcl

إقتباس : لكن المشكلة أن الرابط الذي وضعته لا يعمل معي ثانيا

الرابط يعمل بشكل جيد ، أسفل لصفحة تجد

Turbo Pascal 5.5
Turbo Pascal 3.02
Turbo Pascal 1.0

ثم ما فائدة المرجوة من إستعمال تطبيقات Console ؟

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

أولا مرحبا بك معنا بدلفي للعرب

إقتباس :ليس مستحيلا وأبسط مثال على ذلك هو برنامج التحرير الخاص بالنظام DOS عندما تكتب في سطر الأوامر الأمر Edit

ثانيا يجب ان تفهم جيدا ماذا تريد
وتفرق بين DOS و WIN وبين 16bits و32bits وبين CLI و GUI

دلفي ينتج ملفات تنفيذية 32Bits فقط سواء بواجهة GUI او بدون واجهة CLI ما يسمى Console

Turbo Pascal بالصورة السابقة هو برنامج 16bits يعمل في DOS ويستخدم مكتبة Turbo Vision المتاحة لبرمجة واجهة نصية مرئية Text User Interface اختصارا TUI كما بالصورة
ان استخدمت Turbo Pascal استخدم Turbo Vision أو برمج واحدة بنفسك

بارك الله فيك اخي B.M.AbdelAziZ على هاته التوضيحات
لكن لم افهم ماذا تقصد بـ :

إقتباس :ان استخدمت Turbo Pascal استخدم Turbo Vision أو برمج واحدة بنفسك

بارك الله فيك

بالتوفيق للجميع

delphi4arab منتديات دلفي للعرب

husseint

khiro.alg

kachwahed

Lam.Abdeldjalil

kachwahed

Lam.Abdeldjalil

husseint

Lam.Abdeldjalil

محمد عبد العزيز

abdelmalek