ثلاثة أسئله !!

مغلق

بدأه <>دلفي<> في 22 مارس 2004 · 2 رد · 448 مشاهدة · في لغة Delphi

مشاركة: واتساب X فيسبوك تيليجرام

#122 مارس 2004 في 23:50 صاحب الموضوع

السلام عليكم

عندي مشروع أستخدم فيه فقط Windows, Classes, SysUtils

ثلاثة أسئله

1: كيف يمكن حفظ مجموعه من البيانات من نوع string داخل ملف نصي txt

2: كيف أستطيع ان اجعل البرنامج يعمل على في بيئة النظام dos فقط

بمعنى انه اذا تم الضغط على البرنامج تظهر نافذة الدوس ثم تختفي لانه البرنامج

ماراح يقبل العمل الى حين تشغيله بكتابة اسم البرنامج في موجه الاوامر msdos

3: اذا تم تشغيل البرنامج من موجه الاوامر راح تظهر رسالة ترحيب بالشكل هذا

Writeln ('   welcome' );

بما انه مايقبل اللغه العربيه :)

ثم ستظهر للمستخدم مجموعة الاوامر الممكن استخدامها في البرنامج

بعد ذلك كيف يمكن ان اضع اكواد تعمل كجمل شرطيه ؟

اذا تم كتابة أمر معين من المستخدم سيقوم البرنامج بالانتقال لتنفيذ امر ما

هذا كل شئ :)

أرجوا الاجابه

محمـــــــــد

المملكه العربيه السعوديـــه

[الفريق العربي للبرمجه الأفضـل دائما]

::::::::::::::::::::::::::::::::::::

msvbvm60.dll = فيجوال بيسك

.................= دلفــــــــــــــي

::::::::::::::::::::::::::::::::::::

#223 مارس 2004 في 15:13

اقتباس
source:www.delphi.co.uk

question1:

var
   myFile : TextFile;
   text   : string;

 begin
   // Try to open the Test.txt file for writing to
   AssignFile(myFile, 'Test.txt');
   ReWrite(myFile);

   // Write a couple of well known words to this file
   WriteLn(myFile, 'Hello');
   WriteLn(myFile, 'World');

   // Close the file
   CloseFile(myFile);

   // Reopen the file for reading
   Reset(myFile);

   // Display the file contents
   while not Eof(myFile) do
   begin
     ReadLn(myFile, text);
     ShowMessage(text);
   end;

   // Close the file for the last time
   CloseFile(myFile);
 end;

question 2

source: http://delphi.about.com

http://delphi.about.com/library/weekly/aa091101a.htm

راكان الحنيطي

Be Open Source