Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Для новичков > вопрос про Memo


Автор: GreedyFly 31.5.2013, 14:45
День добрый)...

Как можно это зациклить?

Memo1.Lines.Insert(3,'');
Memo1.Lines.Insert(7,'');
Memo1.Lines.Insert(11,'');

чтобы каждая четвертая строка в мемо была пустая)??

Автор: northener 31.5.2013, 14:59
Цитата(GreedyFly @  31.5.2013,  14:45 Найти цитируемый пост)
Как можно это зациклить?

Код

  for i:=(Memo1.Lines.Count div 3) downto 1 do
    Memo1.Lines.Insert(i*3,'');

Автор: Poseidon 31.5.2013, 15:33
Код

for i:= Memo1.Lines.Count-1 downto 0 do
  if (i+1) mod 4 = 0 then Memo1.Lines.Insert(i, '')

Автор: GreedyFly 31.5.2013, 15:54
northener, спасибо)).... второй вариант косой)

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)