+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : استفسار بسيط memo.line (/showthread.php?tid=7567)
استفسار بسيط memo.line - صعب الوصايف - 29-02-2016
السلام عليكم ورحمة الله ووبركاتة
الاستفسار الاول هو
لدي مكون Memo1
فيه 100 سطر
كل سطر فيه اسم شخص
---
fahad-1
m7md-2
dkdd-3
----------
ولدي مكون Edit1
فارغ
لما اطبق الامر هذا
edit1.Text:=Memo1.Lines[1];
يضيف السطر الاول
انا اريده يطبق الاول وبعد ثانيه يظيف السطر الثاني وبعد ثانيه يظيف السطر الثالث بسرعة لم أستطع
-----------------------------------------
استعملت مكون التايمر ف الأمر
Memo1.Lines.Delete(1);
لاكنه بطيئ بعد رفع سرعة التايمر
هل هناك طريقة اخرى
RE: استفسار بسيط memo.line - محمد عبد العزيز - 29-02-2016
وعليكم السلام ورحمة الله وبركاته
ما الهدف من الامر ؟ اوضح حتى يمكن توجيه الاجابة الى الاصح
حسب وصفك يكفي شيئ مثل
كود :
var
i:Integer;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if i>Memo1.Lines.Count-1 then Exit;
edit1.Text:=Memo1.Lines[i];Inc(i);
Application.ProcessMessages;
end;RE: استفسار بسيط memo.line - صعب الوصايف - 01-03-2016
تسلم طال عمرك
الهدف ي طويل العمر
هو برنامج بحث
تلقائي
مثال
edit1
انا ضايف اسمهاء
داخل
memo.line
-------------
من واحد الى 10000
اريدها تنظاف واحد تلو الثاني
بحيث
ينحذف الاول
وينظاف الثاني بسرعة شبه كبيره
الى ان يو صل الى 10000
اذا م فهمت اصور لك فيديو لطريقة العمل لاكنها بطيئة
RE: استفسار بسيط memo.line - محمد عبد العزيز - 01-03-2016
الكود السابق يقوم بذلك
عليك فقط اختيار الinterval المناسب
انتبه عشرة ألاف تخذ وقت وان اسرعنها كثيرا لا يمكن للمستخدم مشاهدتها
كود :
procedure TForm1.FormCreate(Sender: TObject);
var
int:Integer;
begin
int:=Round(10*1000/Memo1.Lines.Count);
if int<10 then int:=10;
if int>1000 then int:=1000;
Timer1.Interval:= int;
end;RE: استفسار بسيط memo.line - صعب الوصايف - 06-03-2016
يعطيك العافية
جاري التجربة