Форум программистов, компьютерный форум, киберфорум
Наши страницы

Определение номера строки текста, где встречается подстрока - Delphi

Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Stringgrid: вывод нужного столбца http://www.cyberforum.ru/delphi-beginners/thread1200209.html
Выводит то, что помечено красным, а нужно, что помечено синим цветом. Т.е № procedure TForm1.Button4Click(Sender: TObject); var Max: integer; MaxI,MaxJ,i,j: Integer; begin Max:=...
Delphi Пересечение графика с осью Х Есть функция = F(x)= x^3 - cos(x) строю function f(x: real): real; begin Result := x*x*x - Cos(X); end; // график while b>a do http://www.cyberforum.ru/delphi-beginners/thread1200179.html
Delphi Найти минимум среди элементов, которые по модулю меньше номера своей строки
Найти минимум среди элементов, которые по модулю меньше номера своей строки. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, ...
Delphi Транспонирование матрицы (задача)
Помогите пожалуйста с задачей! Дана матрица А размерностью (n*m), где n-число строк; m-число столбцов. Получить из матрицы А транспонированную матрицу АТ, в которой найти минимальный и максимальный...
Delphi Списковые структуры данных http://www.cyberforum.ru/delphi-beginners/thread1200043.html
Напишите пожалуйста программу по методичке (6 вариант). нужно создать копию списка.
Delphi Работа с ini файлами Всем привет! В папке с программой у меня хранятся ini файлы. Ребят, можно ли как-то сделать, чтобы по нажатию кнопки необходимые мне ini файлы копировались в папку save, по нажатию другой кнопки ini... подробнее

Показать сообщение отдельно
Зотов_из_ОСА
Аналитик
79 / 79 / 22
Регистрация: 24.04.2014
Сообщений: 465
Записей в блоге: 15
05.06.2014, 17:49
MyName,
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
29
30
31
32
33
34
35
36
37
procedure TForm1.Button1Click(Sender: TObject);
var
i,j,j1,k:integer;
Nm: array[1..100] of integer;
begin
edit1.setfocus;
for i:=0 to memo1.lines.count-1 do
 begin
 a:=memo1.Lines[i];   
 j1:=2;
 q:=edit1.text;
 if pos(q,a)<>0 then
  begin
  for k:=0 to length(a)-length(q) do
  begin
  if copy(a,k,length(q))=q then 
    begin    
      inc(j);
      if j=1 then b[1]:=i else if b[j1]<> b[j1-1] then 
        begin
          inc(j1);
          b[j1]:=i; 
        end;
    end;
    end;
  end;
  memo2.Clear;
  memo2.Lines.Add('Колличество вхождений в текст: '+inttostr(j));
  end else showmessage('Слово не встречается в тексте');
  memo2.lines.add('подстрока встречается в строках:');
  for i:=1 to j1 do
     begin
         memo2.lines.text:=memo2.lines.text + inttostr(b[i]) + ' ';
     end;
 end;
 
end;
0
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru