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

[coolle]

Выдаёт ошибку в строке "Memo2.Lines.Text:= TS;"
Ошибка: [Error] Unit1.pas(76): Incompatible types: 'String' and 'TStringList'

Не нужно цитировать предыдущее сообщение! Это - флуд.
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
А кроме кнопки "Цитата" внизу есть простое окно для ввода своего сообщения.
Или маленькая кнопочка "Быстрый ответ" справа от кнопки "Цитата".
Попадаете туда же.
Модератор

[Serge_Bliznykov]

угу. писал на форуме. не допечатал...

Memo2.Lines.Text:= TS.Text;

ну нужно результат присвоить обратно, в Memo2
можно было догадаться

[coolle]

var
TS : TStringList;
i:integer;
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.Text;
  FreeAndNil(TS);
end;

с этим кодом программа просто виснет не скопировав ни одной строки((((

Не нужно цитировать предыдущее сообщение! Это - флуд.
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
А кроме кнопки "Цитата" внизу есть простое окно для ввода своего сообщения.
Или маленькая кнопочка "Быстрый ответ" справа от кнопки "Цитата".
Попадаете туда же.
Модератор

[Serge_Bliznykov]

А Вы уверены, что код в точности такой, как на сайте?

вот, выкладываю пример.
Example.rar
Там и исходник и откомпилированный exe. проверьте, работает ли...

[coolle]

Да я уверен что код в точности такой. И Ваш откомпилированый ехе тоже повис тут же, как я в него 667000 строк скопировал и нажал кнопку.
И ещё, Вы бы проверили свой компилятор как сказано в этой теме. я загрузил Ваш проэкт и попытался его откомпилировать, при компиляции антивирус заругался и удалил Induc.

[mihali4]

Какой антивирус ? Касперский ?
Не верьте ему - он просто пиарится.
Я проверил архив - чистый.

[coolle]

Антивирус NOD32 v.4 . Не думаю что он просто пиарится, индюк имеет место быть.
Ну а к сути вопроса, что сделать чтобы программа не висла?

[Alter]

Каспер вообще не ругается на *.exe в архиве. У Nod, Avira, Avast множество положительных реакций на безопасные файлы. Некая параноидальность.
http://www.virustotal.com/file-scan/...656-1290428842