Копирование строк из Memo1 в Memo2.

[coolle]

Здравствуйте!
Нужно копировать все строки из мемо1 в мемо2, но проверять нет ли такой же строки уже в мемо2, тоесть копировать в мемо2 только то, что там ещё нет.
Помогите пожалуста.

[Stilet]

Ну классическим методом - циклом.
А проверять поможет метод TMemo.Lines.IndexOf(Строка), который вернет -1 если такой строки нет в Мемо.
Смекаешь?

[coolle]

var
 a,b:integer;
 con:boolean;
begin
for a:=0 to memo1.Lines.Count-1 do
begin
con:=false;
for b:=0 to memo2.lines.count-1 do
 begin
 if memo1.lines.Strings[a]=memo2.Lines.Strings[b] then con:=true;
 end;
if not con then memo2.Lines.Add(memo1.lines.Strings[a]);
end;
end;;

Вот рабочий код )))
Всем спасибо!

[JTG]

С отсортированным списком можно уложиться в 3 строки

StringList1.Sorted := true;
StringList1.Duplicates := dupIgnore;
StringList1.AddStrings(StringList2);

[Serge_Bliznykov]

С отсортированным списком можно уложиться в 3 строки

Как ни странно, но не с отсортированным, используя алгоритм, который сразу предложил Stilet, тоже в три строчки

  for i:=0 to Memo1.Lines.Count-1 do
    if Memo2.Lines.IndexOf( Memo1.Lines[i] )< 0 then
      Memo2.Lines.Append( Memo1.Lines[i] );

[coolle]

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

Как ни странно, но не с отсортированным, используя алгоритм, который сразу предложил Stilet, тоже в три строчки

  for i:=0 to Memo1.Lines.Count-1 do
    if Memo2.Lines.IndexOf( Memo1.Lines[i] )< 0 then
      Memo2.Lines.Append( Memo1.Lines[i] );

Программа при переборе 660к строк, виснет... С кодом который я выше написал почти сразу, а с тем что Вы написали перебирает какоето время и тоже виснет. Почему?

[JTG]

Потому что это дофига строк и контрол после каждого изменения перерисовывается. Можно попробовать

Memo2.Lines.BeginUpdate;

  for i:=0 to Memo1.Lines.Count-1 do
    if Memo2.Lines.IndexOf( Memo1.Lines[i] )< 0 then
      Memo2.Lines.Append( Memo1.Lines[i] );

Memo2.Lines.EndUpdate;

[Arigato]

Где-то я слышал про ограничение в 64Кб для мемо, или что-то путаю?

[Stilet]

Arigato

Note: Under Win 9x, there is a limit of 64k of text for this control.

У автора 98-ка?

Потому что это дофига строк и контрол после каждого изменения перерисовывается. Можно попробовать

А еще лучше вогнать из в отдельно созданные объекты TStringList

  for i:=0 to M1.Count-1 do
    if M2.IndexOf( M1[i] )< 0 then
      M2.Append( M1[i] );

Где m1,m2 - корректно созданные TStringList и

m1.Text:=Memo1.Lines.Text;
m2.Text:=Memo2.Lines.Text;

Ну и соответственно назад перегонять после цикла.

[Serge_Bliznykov]

А еще лучше вогнать из в отдельно созданные объекты TStringList

угу.
достоточно одного. Memo1 не изменяется, можно его и оставить.
а вот обработку вести не в Memo2, а в созданном TStringList
примерно так:

var TS : TStringList;
...
begin

    TS := TStringList.Create;
    TS.Text := Memo2.Lines.Text;

  for i:=0 to Memo1.Lines.Count-1 do
    if TS.IndexOf( Memo1.Lines[i] )< 0 then
         TS.Append( Memo1.Lines[i] );

  Memo2.Lines.Text  := TS;

  FreeAndNil(TS);