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

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Antonio:)))
18 / 18 / 1
Регистрация: 21.01.2010
Сообщений: 58
#1

Поиск буквенных строк - Delphi

24.04.2010, 13:51. Просмотров 315. Ответов 1
Метки нет (Все метки)

Подскажите, что не так? Программа должна выводить номера строк, в которых есть буквы.


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
procedure TForm1.Button1Click(Sender: TObject);
 const n=5;m=5;
var
 
  a:array[1..n,1..m] of string;
  i,j,k,l:integer;
  alf:string='abcdefghijklmnopqrstuvwxyz';
  s:string;
 
 begin
   for i:=1 to n do
   for j:=1 to m do
    begin
     a[i,j]:=StringGrid1.Cells[i-1,j-1];
    end;
   k:=0;
 for i:=1 to n do
  begin
  k:=0;
     for j:=1 to m do
      begin
       s:=a[i,j];
       if pos(s,alf)<>0 then begin
        k:=k+1;l:=i;
       end;
      end;
      if k=5 then Label1.Caption:=IntToStr(l)+',';
     end;
 
  end;
 
 
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.04.2010, 13:51
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Поиск буквенных строк (Delphi):

Поиск строк в ListBox - Delphi
Здравствуйте На форме имеется 3 компонента ListBox нужно реализовать поиск строк по этим 3м листбоксам через Edit. Допустим, я ввожу...

Поиск совпадения строк - Delphi
Привет. Подскажите чайнику как зациклить парочку процедур. Программа загружает пару циферок из файла txt.txt в Edit1.Text. Посля...

Поиск одинаковых строк - Delphi
Здравствуйте, помогите пожалуйста в этом коде заменить цикл while на цикл for . procedure TForm1.Button2Click(Sender: TObject); ...

Поиск строк по символам в Memo - Delphi
Доброго времени суток. Задача заключаеться в том чтобы найти строки в memo по символам введеным в edit-е, т.е. в memo хряниться много строк...

Поиск в файле строк, закодированных в Unicode - Delphi
Здравствуйте, подскажите как можно осуществить поиск всех юникодовских строчек в файле (не текстовом) с выводом список и возможностью...

Поиск символов в динамическом массиве строк - Delphi
привет, мне нужно объяснение об поиском символом в динамичный строк массива. я буду дать этот пример: у меня есть н число элементов как я...

1
*~<`PIK`>~*
ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ
606 / 386 / 18
Регистрация: 15.12.2009
Сообщений: 753
24.04.2010, 15:44 #2
Вот
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
procedure TForm1.Button1Click(Sender: TObject);
    const n=5;m=5;
    const alf=['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z'];
 
var z:integer;
    a:array[1..n,1..m] of string;
    i,j,k,l:integer;
    s:string;
 
begin
   for i:=1 to n do
   for j:=1 to m do
    begin
     a[i,j]:=StringGrid1.Cells[j-1,i-1];
    end;
   k:=0;
 for i:=1 to n do
  begin
  k:=0;
     for j:=1 to m do
      begin
       s:=a[i,j];
       For z:=1 to Length(s) do
       If s[z] in alf then
       begin
       Inc(k);
       Label1.Caption:=Label1.Caption+IntToStr(i)+',';
       Break;
       end;
      If k<>0 then
      Break;
      end;
     end;
 
  end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.04.2010, 15:44
Привет! Вот еще темы с ответами:

Поиск максимальных элементов строк матрицы и их суммы - Delphi
Здравствуйте, в матрице 2х3, с типом элем. real, найти максимальный элемент по рядках и найти их сумму.

delphi и word. Поиск слов по маске и между строк. - Delphi
Добрый день. Не судите строго. Принялся за изучение delphi. у меня такая задача. Программка открывает doc файл и ищет в нём слово по...

Поиск и закрашивание строк матрицы, все элементы которых различны - Delphi
Условие задачи: Дана целочисленная матрица размера M на N. Найти и закрасить ее строки, все элементы которых различны. Мой код: var ...

Двумерные массивы,поиск одинаковых элементов и нахождение суммы строк и столбцов, которые их содержат - Delphi
Доброго времени суток.Мне нужно понять как совершить поиск одинаковых элементов в двумерном массиве и нахождение суммы строк и столбцов...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru