17.11.2019, 13:49 [+3 UTC]
в нашей команде: 3 978 чел. | участники онлайн: 8 (рекорд: 21)

:: РЕГИСТРАЦИЯ

задать вопрос

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.77 (31.05.2019)
JS-v.1.34 | CSS-v.3.35

Общие новости:
28.04.2019, 09:13

Форум:
16.11.2019, 20:23

Последний вопрос:
17.11.2019, 12:05
Всего: 150984

Последний ответ:
17.11.2019, 02:39
Всего: 259420

Последняя рассылка:
17.11.2019, 10:15

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
05.04.2010, 09:39 »
strannik2000
Отлично! Спасибо! [вопрос № 177678, ответ № 260610]
13.06.2011, 18:29 »
Detsle
Всё подробно, и главное удобно. Спасибо) [вопрос № 183578, ответ № 267682]
14.10.2009, 10:43 »
hindsight
Огромное спасибо! Все отлично написано! [вопрос № 173239, ответ № 255373]

РАЗДЕЛ • Pascal / Delphi / Lazarus

Создание программ на языках Pascal, Delphi и Lazarus.

[администратор рассылки: Зенченко Константин Николаевич (Старший модератор)]

Лучшие эксперты в этом разделе

Gluck
Статус: 7-й класс
Рейтинг: 872
Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 565
puporev
Статус: Профессионал
Рейтинг: 306

Перейти к консультации №:
 

Консультация онлайн # 187499
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: Владимир (Посетитель)
Отправлена: 30.06.2013, 20:36
Поступило ответов: 1

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

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 Find:string; //Искомая строка
 i,n,:integer; //Счетчик для цикла
 begin
 for n:=0 to Memo1.Lines.Count-1 do begin
 find:=Memo1.Lines[n]; // Запись в find текст из Memo1
 For i:=0 to Memo2.Lines.Count-1 do //Запуск цикла
 If Pos(FIND, Memo2.Lines.Text)<>0
 Then
 Begin
 Memo2.SetFocus();
 Memo2.SelStart:=Pos(FIND,Memo2.Lines.Text)-1;
 Memo2.SelLength:=Length(FIND);
 Memo2.SelText:='';


Строки удаляются, вроде как нет замечаний, Но остаются пустые строки.
Примерно так:

Иванов


Петров

Сидоров

То есть нужно удалить еще и пустые строки.
Благодарю за внимание.

Состояние: Консультация закрыта

Ответ # 272448 от Орловский Дмитрий (Мастер-Эксперт)

Здравствуйте, Владимир!
А почему бы не сделать по-другому

var
  n,i: Integer;
begin
  for n:=0 to Memo1.Lines.Count-1 do begin
    i:=0;
    while i<Memo2.Lines.Count do begin
      if Memo2.Lines[i]=Memo1.Lines[n] then Memo2.Lines.Delete(i)
      else Inc(i);
    end;
  end;
end;


Консультировал: Орловский Дмитрий (Мастер-Эксперт)
Дата отправки: 30.06.2013, 22:40

Рейтинг ответа:

+1

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Мини-форум консультации № 187499
Евгений/Genia007/
Профессионал

ID: 153662

# 1

= общий = | 01.07.2013, 09:03 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
Владимир:

Здравствуйте. Ваш код не удалят строки, а просто делает их пустыми, а как удалять Вам уже дали ответ. Если надо удалят ещё и пустые строки можно к Вашему коду добавить:

var
  i: Integer;
begin
  i:= 0;
  while i < Memo2.Lines.Count do
    begin
      if Memo2.Lines[i] = '' then
        Memo2.Lines.Delete(i);
        inc(i);
    end;
end;

=====
Мои программы со статусом freeware для Windows на моём сайте jonix.ucoz.ru

Владимир
Посетитель

ID: 352040

# 2

= общий = | 01.07.2013, 09:53 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
Орловский Дмитрий:

Согласен. Так пожалуй будет гораздо лучше. Благодарю за помощь. Можно закрывать тему.

=====
Пользуюсь Delphi Enterprise Version7.

 

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.22755 сек.

© 2001-2019, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.77 от 31.05.2019
Версия JS: 1.34 | Версия CSS: 3.35