+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كبف بمكن ارجاع محتوى حقل من العمودي الى الافقي (/showthread.php?tid=7786)
كبف بمكن ارجاع محتوى حقل من العمودي الى الافقي - AbdouProg - 01-05-2016
بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته
عندي حقل عمودي في ميمو اريد الحصول عليه افقي بحيت الاسماء تكون مفصولة بالفاصلة كما هو موضح في الصورة
RE: كبف بمكن ارجاع محتوى حقل من العمودي الى الافقي - wadoud - 01-05-2016
وعليك السلام ورحمة الله وبركاته,
تفضل اخي ممكن يكون الحل كالتالي
ضع في الزر
كود :
procedure TForm1.Button1Click(Sender: TObject);
var d,i : integer;
begin
d:=memo1.lines.count;
for i:=1 to d do
memo1.lines[0]:=memo1.lines[0]+' ,'+memo1.lines[i];
for i:=1 to d do
memo1.lines.Delete(1);
end;
مع المثال مرفقRE: كبف بمكن ارجاع محتوى حقل من العمودي الى الافقي - AbdouProg - 01-05-2016
بسم الله الرحمن الرحيم
بارك الله فيك الاخ wadoud
ولكن المشكل في الفاصلة فانها تظهر في الاخير
RE: كبف بمكن ارجاع محتوى حقل من العمودي الى الافقي - wadoud - 01-05-2016
طيب اخي إجعلها هكذا:
كود :
procedure TForm1.Button1Click(Sender: TObject);
var d,i : integer;
begin
d:=memo1.lines.count;
for i:=1 to d-1 do
memo1.lines[0]:=memo1.lines[0]+', '+memo1.lines[i];
for i:=1 to d do
memo1.lines.Delete(1);
end;
end.RE: كبف بمكن ارجاع محتوى حقل من العمودي الى الافقي - AbdouProg - 01-05-2016
بسم الله الرحمن الرحيم
بارك الله فيك الاخ wadoud
جعله الله في ميزان حسناتك اخي ودود