كيف اقسم الكلمة الموجودة في edit على 2 edit

[amer mohamed]

[COLOR="DarkRed"][FONT="Arial Narrow"]السلام عليكم
لديا 3 edit
.كيف يمكن ان اكتب كلمة زوجية الاحرف على edit1
فيقسم البرنامج الكلمة الى نصفين
النصف الاول توضع في edit2
و النصف الثاني يوضع في edit3
هل ممكن السوروس المناسب لعمل ذلك
شكرا مسبقا[/COLOR]

[format82]

يمكن نقل بيانات عن طريق copy

Edit2.Text:=copy(Edit1.Text,1,5);
Edit3.Text:=copy(Edit1.Text,6,10);

[amer mohamed]

شكرا جزيلا اخي format82
افدتني كثيرا بطريقة copy
تحياتي يا غالي

[format82]

لا شكر علي واجب

[King SofT]

وعليكم السلام ورحمة الله

بافتراض ان Edit1 هو الذي يحمل الكلمة الاصلية

كود :

Edit2.Text:=copy(Edit1.Text,1,length(Edit1.Text)div 2); Edit3.Text:=copy(Edit1.Text,length(Edit1.Text)div 2+1,length(Edit1.Text));

بالتوفيق