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

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

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : سوال بخصوص نسخ من ميمو الى ليست بوكس بشرط معين (/showthread.php?tid=10802)

سوال بخصوص نسخ من ميمو الى ليست بوكس بشرط معين - jeanjamil - 28-04-2020

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

RE: سوال بخصوص نسخ من ميمو الى ليست بوكس بشرط معين - ghostdz - 29-04-2020

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

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

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