Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2013.10.06;
Скачать: [xml.tar.bz2];

Вниз

Сровнение Мемо   Найти похожие ветки 

 
lordalexander   (2013-01-16 18:56) [0]

Здравствуйте
У меня возникла проблема, как сравнить строки из Мемо2 с Мемо1
И если есть одинаковые  удалить из Мемо1
В Мемо не известно количество строк.  
Не как могу придумать как это воплотить.
Заранее спасибо


 
Anatoly Podgoretsky ©   (2013-01-16 21:06) [1]

> lordalexander  (16.01.2013 18:56:00)  [0]

IndexOf на обеих Мемо


 
Сергей М. ©   (2013-01-16 21:14) [2]


> В Мемо не известно количество строк


У тебя неправильный Мемо.
В правильном Мемо количество строк известно и равно значению св-ва Lines.Count


 
Сергей М. ©   (2013-01-16 21:15) [3]


> не известно


> Не как


За Державу не обидно ?


 
lordalexander   (2013-01-16 21:56) [4]

имел веду что количество строк всегда разное  в зависимости какую информацию туда ввел
Memo12.Lines.Count всегда скажет  сколько там строк


 
lordalexander   (2013-01-16 22:00) [5]

Так вроде правильно  
var
i:integer;
begin
for i:=0 to memo1.Lines.Count-1   do
begin
 if memo2.Lines.IndexOf(memo1.Lines[i])=-1 then  
    memo3.Lines.Add(memo1.Lines[i]);
end;
end;


 
Anatoly Podgoretsky ©   (2013-01-17 12:05) [6]

Да где же правильно?
Добавлять никто не просил, а только удалять из memo1


 
clickmaker ©   (2013-01-17 15:01) [7]

да и самих мемо уже три, а не два



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2013.10.06;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.003 c
15-1367267405
Юрий
2013-04-30 00:30
2013.10.06
С днем рождения ! 30 апреля 2013 вторник


15-1366835403
Юрий
2013-04-25 00:30
2013.10.06
С днем рождения ! 25 апреля 2013 четверг


15-1355480016
azlk52
2012-12-14 14:13
2013.10.06
Запрет приложение вконтакте


2-1358698446
Pcrepair
2013-01-20 20:14
2013.10.06
контрол имеющий пару строка-число


6-1269679629
syserg
2010-03-27 11:47
2013.10.06
Получить список имен файлов на сайте





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский