11-07-2011, 10:50 AM
السلام عليكم
شكرا أخي yassine_hell حل جيد مع تعديل طفيف بارك الله فيك
هل من حل اخر
شكرا أخي yassine_hell حل جيد مع تعديل طفيف بارك الله فيك
كود :
var SL : TStringList;
i , c , p : integer;
begin
SL :=TStringList.create;
i := 0;
c := 19;
p := 0;
try
repeat
for i := p to c do
begin
SL.Add(Memo1.Lines.Strings[i]);
end;
p := p + 20 ;
c := c + 20 ;
showmessage('pause');
{do something with SL}
until p >= Memo1.Lines.count;
finally
SL.free;
end;
end;