+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : من Memo1 إلى Memo2؟ (/showthread.php?tid=152)
من Memo1 إلى Memo2؟ - selloumi - 21-04-2008
السلام عليكم ورحمة الله
لدي Memo1 تحوي نصا معينا ، كيف يمكنني أن استخرج منه عددا محددا من الأسطر من 1 إلى 4 مثلا( طبعا بواسطة أمر ) لأظهره في Memo2و لكم جزيل الشكر مسبقا و دمتم للموقع .
من Memo1 إلى Memo2؟ - محمد عبد العزيز - 21-04-2008
في المكون TMemo السطور تكون على شكل جدول في Lines
مثلا اول سطر يمكن الحصول عليه ب
PHP كود :
Memo1.Lines[0]
PHP كود :
Memo1.Lies[1]
-
عندما نريد اضافة سطر جديد للMemo نستدعى ADD
مثلا لاضافة رابط هذا الموقع في Memo2 نكتب
PHP كود :
Memo2.Lines.Add('http://wwwdelpharabcom);
او اردنا اضافة السطر الثاني من Memo1 الى Memo2 نكتب
PHP كود :
Memo2.Lines.Add(Memo1.Lines[1]);
PHP كود :
Var
S:String;
Begin
S := Memo1.Lines[1]; // السطر الثاني
Memo2.Lines.Add(S);
end;
الان لو اردنا ان نضيف الاسطر من 1 الى الرابع نستخدم حلقة For او Repeat او غيرها
PHP كود :
Var
i : Integer;
Begin
For i:= 1 to 4 Do
Memo2.Lines.Add(Memo1.Lines[i-1]);
End;
لو اردنا اضافة كل الاسطر، والتي عددها يكون في المتغير Count
PHP كود :
Var
i : integer;
begin
Memo2.Clear;
for i := 0 to Memo1.Lines.Count-1 Do
Memo2.Lines.Add( Memo1.Lines[i] );
end;
والسلام عليكم ورحمة الله
من Memo1 إلى Memo2؟ - Delphawi - 25-04-2008
جزاك الله خيرا استاذ عبدالعزيز
ولكن لماذا لم تكتب :
emo1.Lines[i].text
من Memo1 إلى Memo2؟ - Wael Dalloul - 28-10-2009
Delphawi كتب :جزاك الله خيرا استاذ عبدالعزيز
ولكن لماذا لم تكتب :
emo1.Lines[i].text
ال Lines عبارة عن Tstrings اي مصفوفة من النوع string وكما تعلم عند التعامل مع المصفوفة نضع ال Index لكي نحصل على ما في الداخل, فلذلك لا حاجة لوضع text.