الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال مهم جداً الرجاء الدخول

مغلق
بدأه nobleman في 17 ديسمبر 2003 · 5 رد · 656 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم يعطيكم العافية شباب

بخصوص الــ memo

أريد أن أخزن فيه اوقات طبعاً كل وقت بسطر جديد وأريد كيف يمكنني بعد استدعاء

الملف النصي الذي قمت بتخزين memo ضمنه الى الـ memo

ولكن بشرط اريد مثلاً عند موافقة الساعة لوقت وتاريخ موجود ضمن الـ memo

يقوم بعمل معين مع الملاحظة الـ memo يوجد بها تاريخ ووقت بكل سطر

#2

شباب اذا في حدا بيقدر يساعدني

الموضوع مهم جدا

تحياتي

#3

السلام عليكم

اخوي nobleman

بالنسبة الى سؤالك حول الميمو :

1- تخزين الوقت .. كل وقت في سطر جديد :

 memo1.Lines.Add(DateTimeToStr(Now));

2 - استدعاء ملف نصي الى الميمو :

  var
 FileName: String;
--------------
OpenDialog1.Filter := 'Text Files (*.txt)';
opendialog1.Execute;
FileName := opendialog1.FileName;
memo1.Lines.LoadFromFile(FileName);

ولا تنسى الدايلوج الخاص بفتح الملفات

3-التشييك على التاريخ الموجود في احد سطور الميمو اذا كان مطابق :

var 
Buffer, Pos, tPointer : PChar;
BuffLength : Word;
-------------------
begin  
      GetMem(tPointer, Length(DateTimeToStr(Now)) + 1);
      StrPCopy(tPointer, DateTimeToStr(Now));
      BuffLength:= Memo1.GetTextLen + 1;
      GetMem(Buffer,BuffLength);
      Memo1.GetTextBuf(Buffer,BuffLength);
      Pos:= Buffer + Memo1.SelStart + Memo1.SelLength;
      Pos:= StrPos(Pos, tPointer);
      if Pos = NIL then label3.Caption:='..........'
      else
      begin
      Memo1.SelStart:= Pos - Buffer;
      Memo1.SelLength:= Length(DateTimeToStr(Now));
      label3.Caption:='íæÌÏ ÊÇÑíÎ ãØÇÈÞ áÊÇÑíÎ Çáíæã';
      MessageBeep(0);
      timer1.Enabled:=false;
      end;
      FreeMem(tPointer, Length(DateTimeToStr(Now)) + 1);
      FreeMem(Buffer,BuffLength);
      Memo1.SetFocus;
  end;

طبعآ في داخل تايمر ...

ومرفق مثال ...ارجو ان يفي بالغرض .

تحياااااااااااتي

Nobleman__Memo.zip

تم تعديل هذه المشاركة بواسطة win32 في 19 ديسمبر 2003 في 12:48

#4

عفوا يعطيك الف عافية

بس السؤال مو هيك السؤال بالمستند النصي بكل سطر في تاريخ وساعة

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

الموجودة ضمن المستند يقوم مثلا بإظهار رسالة

مثل برنامج تذكير مواعيد

وجد الله يعطيك الف عافية

#5

الله يعافيك

اعتقد ما جربت المثال المرفق ...؟

في المثال السابق اخوي nobleman بمجرد استدعاء الملف النصي الى الميمو يعمل

التايمر ... ويقوم بالتالي :

البحث عن اي تاريخ مطابق للتاريخ الحالي .. (يجب ان يكون التاريخ مطابق بالضبط )

في حال وجود تاريخ مطابق .. يقوم بتضليلة (هاي لايت) ويضهر لك مسج :

(وجد تاريخ مطابق لتاريخ اليوم ) ويسمعك صوت( بيب )... بعد ذالك يقفل التايمر

وللمعلومية يبحث في التواريخ ..علمآ ان كل تاريخ في سطر مستقل .

اما اذا كنت تقصد ان يبحث في مستند نصي خارج البرنامج...فاعتقد من الأفضل

استدعاءة الى الميمو ومن ثم البحث فية ...وان كان هذا ما تريد .. فاجعل الميمو

مخفية .

#6

شكرا على التوضيح

والله يعطيك الف عافية

هذا الموضوع مغلق.

مواضيع مشابهة