Главная страница
    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
2-1358414836
O'ShinW
2013-01-17 13:27
2013.10.06
Моргает ListView.(D7)


2-1358276402
Pcrepair
2013-01-15 23:00
2013.10.06
Непонятное использование String в коде программы


2-1358409551
sergeyleroy
2013-01-17 11:59
2013.10.06
Скачок записей в DbGridEh при использование Bookmark


2-1358236774
samborskijj
2013-01-15 11:59
2013.10.06
Неверный запрос (слишком мало параметров)


15-1366662603
Юрий
2013-04-23 00:30
2013.10.06
С днем рождения ! 23 апреля 2013 вторник





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский