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

السلام عليكم

كيف دمج محتوى مكونين Memo في مكون Memo ثالث ؟
يوجد فى الكود 3 Memo بحيث
Memo 1+Memo 2= Memo 3
يكون بهذا الشكل وهذا المطلوب
1111111111
aaaaaaaaaa
2222222222
bbbbbbbbbb
3333333333
cccccccccc
4444444444
dddddddddd
5555555555
eeeeeeeeee
الخطاء هذا عند الضغط على الزر
1111111111
2222222222
3333333333
4444444444
5555555555
aaaaaaaaaaa
bbbbbbbbbbb
cccccccccc
dddddddddd
eeeeeeeeee
محاولتي بالمرفق
تحياتى لكم

PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var
 i : Integer;
begin
Memo3.Lines.Clear;
for I := 0 to Memo1.Lines.Count - 1 do
 begin
Memo3.Lines.Add(Memo1.Lines[i]);
Memo3.Lines.Add(Memo2.Lines[i]) ;
 end;
end; 

جرب هذا الكود

بارك الله فيك اخى

محمدعلى

justnick

محمدعلى