memo coun do

[mitiay]

Как скопировать первые 10 строк из memo1 в мемо2,потом удалить эти 10 строк в мемо1

[mitiay]

пробую count - 9 do не выходит(

[Пепел Феникса]

var i:integer;
begin
 i:=0;
 while i<10 and i<Memo1.Lines.Count do
  begin
   Memo2.Lines.Add(Memo1.Lines[0]);
   Memo1.Lines.Delete(0);
   inc(i);
  end; 
end;

как-то так.
не проверял.

[mitiay]

< - ругается

[Пепел Феникса]

на воздух ругается?
(у меня нет Делфи, и врядли будет)

[mitiay]

while i<10 and i<Memo1.Lines.Count do на эту строчку

[evg_m]

расставить скобки

while (i<10) and (i<memo1.lines.count) do

[mitiay]

Сообщение от evg_m

расставить скобки

while (i<10) and (i<memo1.lines.count) do

Работает,только делит по полам, то есть в мемо1 10 строк в мемо2 записывается только 5, в мемо1 4 строки в мемо два записывается только 2

[Пепел Феникса]

да, не учел.

var i,len:integer;
begin
 i:=0;
 len:=Memo1.Lines.Count;
 while (i<10) and (i<len) do
  begin
   Memo2.Lines.Add(Memo1.Lines[0]);
   Memo1.Lines.Delete(0);
   inc(i);
  end; 
end;

как-то так.
вообще странно что вы при компиляторе не можете такое банальное написать.

[mitiay]

Сообщение от Пепел Феникса

да, не учел.

var i,len:integer;
begin
 i:=0;
 len:=Memo1.Lines.Count;
 while (i<10) and (i<len) do
  begin
   Memo2.Lines.Add(Memo1.Lines[0]);
   Memo1.Lines.Delete(0);
   inc(i);
  end; 
end;

как-то так.
вообще странно что вы при компиляторе не можете такое банальное написать.

Спасибо!Огромное!