بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته
عندي حقل عمودي في ميمو اريد الحصول عليه افقي بحيت الاسماء تكون مفصولة بالفاصلة كما هو موضح في الصورة
بكاء العين يفضح وبكاء القلب يذبح والبكاء من خشيه الله يربح اللهم اجعلنا ممن يبكى من خشيتك
وعليك السلام ورحمة الله وبركاته,
تفضل اخي ممكن يكون الحل كالتالي
ضع في الزر
كود :
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;
مع المثال مرفق
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.
![[صورة: do.php?img=743520]](http://up.harajgulf.com/do.php?img=743520)
