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

السلام عليكم
لدي بيانات في ميمو كناية عن اسماء وكل اسم في سطر اريد اخذها الى عدة ليست بوكس بمعنى انه عندما يقرا في الميمو سطر فارغ ان ينقل الاسماء التالية الى ليست بوكس 2 وهكذا

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

إليك كود الدالة التالي جربه

كود :
procedure CopyMemoToMultiListBox(AMemo: TMemo;
  aListBox: array of TListBox);
var
  I, J: Integer;
begin
  J := 0;
  for I := 0 to AMemo.Lines.Count - 1 do
  begin
    if AMemo.Lines[I] = '' then
      J := J + 1
    else
    begin
      if J < Length(aListBox) then
        aListBox[J].Items.Add(AMemo.Lines[I])
      else Break;
    end;
  end;
end;

وقم بمناداة الدالة كالتالي

كود :
CopyMemoToMultiListBox(Memo1, [ListBox1, ListBox2, ListBox3, ListBox4]);

jeanjamil

ghostdz