еще одна проблема с delphi

[speedo]

в оббщем нужно чтобы в memo3 смешались текст из memo1 и memo2.

ключевое слово здесь "смешались" т.е сначала первая строка первого потом первая сторка второго заем вторая строка первого потом вторая строка второго и т.д

заранее Огромнейшее спасибо!!!

[coder]

procedure TForm1.DoMix();
var
   idx,maxLine : integer;
begin
  maxLine := Max( memo1.Lines.Count,memo2.Lines.Count);
  if maxLine < 1 then exit;

  memo3.Lines.BeginUpdate;
  try
    memo3.Clear;
    for idx := 0 to maxLine-1 do
    begin
      if  idx < memo1.Lines.Count then
         memo3.Lines.Add(memo1.Lines[idx]);
      if  idx < memo2.Lines.Count then
         memo3.Lines.Add(memo2.Lines[idx]);
    end;
  finally
     memo3.Lines.EndUpdate;
  end;
end;

[speedo]

coder Спасиб! все работает! а можно пояснить этот код!? а то я что то не совсем понял))))

[coder]

speedo

F1 на том что не понятно, читаем. что останется не понятным - спрашиваем. тут же не литературный клуб?

[mcCar]

Объясните, а почему не так?

memo3.Clear;

for idx := 0 to maxLine-1 do

begin

memo3.Lines.Add(memo1.Lines[idx]);

memo3.Lines.Add(memo2.Lines[idx]);

end;

[TolkienDRR]

за девять месяцев одно сообщение xD

чтобы не было прорисовки мемо после каждого изменения =)

Добавлено спустя 1 минуту 47 секунд:

а в конечном итоге, просто для скорости выполнения. при больших объемах выполнится в разы быстрее =)

[coder]

mcCar

а при memo1.Lines.Count <> memo2.Lines.Count что будет ?

[mcCar]

*Стыжусь*