подобные строки....

@maxxx46 · Регистрация: 12.11.2009

Студворк — интернет-сервис помощи студентам

есть мемо1 со строками вида "1234:1234" и мемо2, со строками без разделителя.
задача: найти в мемо1 строки, содержащие строки мемо2 и вывести их в мемо3
пытался так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
var
  line, line2, line3, tmp, tmp2, tmp3: string;
  i1,i2,i3,cnt: Integer;
begin
  cnt:=0;
  i3:=0;
  f1:=TStringList.Create;
  f1.addstrings(memo1.lines);
  f3:=TStringList.Create;
  f3.addstrings(memo2.lines);
      while i3<=f1.Count-1 do
       begin
        For i2:=0 to f3.Count-1 do
          begin
               line := f1.Strings[i3];
               Delete(line, Pos(':', line), Length(line));
               line3 := f3.Strings[i2] ;
               if (line <> line3) then
                begin
                 f1.Delete(i3);
                 cnt:=cnt+1;
                end;
          end;
       i3:=i3+1;
       ProgressBar1.Position := 100 * f1.Count-1 div (i1);
    end;
MemoEnd.Lines.addstrings(f1) ;
end;

естественно, ничего не работает

что я делаю не так?

@new_in_net · 12.11.2009, 06:54

По-моему вы слишком все намудрили...
Вот код который делает то что вам нужно:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.ProcessMemos;
var
  I: integer;
  SearchLine: string;
begin
  Memo3.Lines.Clear;
  for I:=0 to Memo1.Lines.Count-1 do begin
    SearchLine := StringReplace(Memo1.Lines[I], ':', '', [rfReplaceAll]);
    if Memo2.Lines.IndexOf(SearchLine) > -1 then
      Memo3.Lines.Add(Memo1.Lines[I]);
  end;
end;

Проверил, работает...

@maxxx46 · 12.11.2009, 15:23 **[ТС]**

а у меня не работает

upd: а, ну конечно: у тебя просто удаляется разделитель, а нужно чтобы удалялся он и всё после него (:

Добавлено через 48 минут
пытался сделать так:

Delphi
1
2
3
4
5
6
7
8
9
  Memo3.Lines.Clear;
  for I:=0 to Memo1.Lines.Count-1 do begin
    Memo1.Lines[I] := SearchLine ;
    tmp := Copy(SearchLine, 1, Pos(':', SearchLine)) ;
    SearchLine := StringReplace(Memo1.Lines[I], ':'+tmp, '', [rfReplaceAll]);
    Memo3.Lines.Add(SearchLine);
    if Memo2.Lines.IndexOf(SearchLine) > -1 then
      MemoEnd.Lines.Add(Memo1.Lines[I]);
  end;

но снова нечего не работает...

@new_in_net · 12.11.2009, 15:38

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

а у меня не работает

upd: а, ну конечно: у тебя просто удаляется разделитель, а нужно чтобы удалялся он и всё после него (:

Добавлено через 48 минут
пытался сделать так:
.................
но снова нечего не работает...

Из условия задачи не ясно, что надо удалять...
Вот так будет делать то, что вы хотите:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.ProcessMemos;
var
  I, SeparatorPos: integer;
  SearchLine: string;
begin
  Memo3.Lines.Clear;
  for I:=0 to Memo1.Lines.Count-1 do begin
    SearchLine := Memo1.Lines[I];
    SeparatorPos := Pos(':', SearchLine);
    if SeparatorPos > 0 then
      SearchLine := Copy(SearchLine, 1, SeparatorPos-1);
    if Memo2.Lines.IndexOf(SearchLine) > -1 then
      Memo3.Lines.Add(Memo1.Lines[I]);
  end;
end;

Использовал следующие данные:
Memo1:
123:123
124:124
125:125

Memo2:
123
124
126

Результат выполнения (Memo3):
123:123
124:124

@o-user · 12.11.2009, 15:39

Delphi
1
2
3
4
5
6
7
8
   for b:=1 to Memo2.Lines.Count do
      begin
         s:=copy(memo2.Lines[b-1],1,4)+':'+copy(memo2.Lines[b-1],5,4);
 
         for a:=1 to Memo1.Lines.Count do
            if s=memo1.Lines[a-1] then
               memo3.lines.add(s);
      end;

@maxxx46 · 12.11.2009, 16:17 **[ТС]**

спасибо, работает

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: показать затраченные материалы за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В качестве. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

@maxxx46 0 / 0 / 0 Регистрация: 12.11.2009 Сообщений: 8
	12.11.2009, 16:17 [ТС]
	спасибо, работает 0

Опции темы