سوال بخصوص نسخ من ميمو الى ليست بوكس بشرط معين

[jeanjamil]

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

[ghostdz]

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

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

كود :

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]);