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

بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته
عندي حقل عمودي في ميمو اريد الحصول عليه افقي بحيت الاسماء تكون مفصولة بالفاصلة كما هو موضح في الصورة

[صورة: do.php?img=743520]

وعليك السلام ورحمة الله وبركاته,
تفضل اخي ممكن يكون الحل كالتالي
ضع في الزر

كود :
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;

مع المثال مرفق

بسم الله الرحمن الرحيم

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

ولكن المشكل في الفاصلة فانها تظهر في الاخير

طيب اخي إجعلها هكذا:

كود :
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.

بسم الله الرحمن الرحيم

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

جعله الله في ميزان حسناتك اخي ودود

AbdouProg

wadoud

AbdouProg

wadoud

AbdouProg