Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
nizzkos
0 / 0 / 0
Регистрация: 21.03.2013
Сообщений: 5
1

Подскажите какой функцией можно осуществить поиск заданного символа в слове

21.03.2013, 01:39. Просмотров 646. Ответов 6
Метки нет (Все метки)

Здравствуйте. Задача такая: в памяти формируется строка, допустим из 5-ти элементов. Далее, из активного окна( Edit) должна считываться буква, и происходит поиск этой буквы в строке символов. Вопрос такой, какой функцией можно реализовать поиск буквы в строке?! Весь интернет уже перерыл - мало толку...
Заранее благодарю!
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.03.2013, 01:39
Ответы с готовыми решениями:

Какой функцией можно задать прыжок лягушки?
я нарисовал лягушку, теперь нужно её анимировать, с помощью какой функцию можно задать прыжки...

Поиск минимального значения по StringGrid как можно осуществить?
в стрингрит размером n*m записываются цифры...впоследствии необходимо произвести поиск по этому...

Подскажите в какой программе можно сделать так:
извените что тему засунул не туда, ибо не нашол подходящего раздела. нужна программа для работы с...

Подскажите какой компонент можно использовать, чтобы сделать эквалайзер на форме
Всем привет! Возник вопрос. Какой компонент можно использовать чтобы получилось что-то вроде...

Поиск букв в слове. Напишите программу для проверки, есть ли в слове Х буква «а»
Поиск букв в слове. Напишите программу для проверки, есть ли в слове Х буква «а». если есть, то...

6
Игорь[Igor]
716 / 469 / 128
Регистрация: 24.12.2008
Сообщений: 3,914
21.03.2013, 04:51 2
Функция
Delphi
1
n:=Pos('A', Str);
n - если символ есть то >0 и имеет значение позиции символа в строке, если не найден то =0;
Str - строка в которой ищем;
'A' - Искомый символ
1
nizzkos
0 / 0 / 0
Регистрация: 21.03.2013
Сообщений: 5
21.03.2013, 12:42  [ТС] 3
Благодарю. А если одинаковых букв будет больше 1? Извини, сразу не раскрыл всей сути задания: ищу буквы в слове, если совпадение есть, то вывод на Image1.Canvas. Необходимо угадать все буквы, по типу игры "Виселица" ....
0
droider
Universal
Эксперт Pascal/Delphi
4405 / 2451 / 765
Регистрация: 04.10.2012
Сообщений: 8,911
21.03.2013, 14:31 4
nizzkos, чуть дополните тогда
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
str:string[6];
n:integer;
//str - переменная, в которой хранится Ваша строка
begin
...................
....................
n:=Pos(edit1.Text, str );
if n=0 then 
Writeln('Такой буквы нет')
else
While n>0 do
begin
//выводим на Image;
end;
end;
Добавлено через 12 минут
кстати, замените Writeln() на тот же Image. Просто я брал отрывок из консольной программы.
Например,
Delphi
1
Image1.Canvas.TextOut(120, 100, 'Такой буквы нет');
1
angstrom
2471 / 1847 / 242
Регистрация: 14.09.2012
Сообщений: 5,981
Записей в блоге: 2
21.03.2013, 14:51 5
Использовать PosEx, вторым параметром ставится позиция с какой искать.
1
Игорь[Igor]
716 / 469 / 128
Регистрация: 24.12.2008
Сообщений: 3,914
21.03.2013, 20:15 6
Для использования PosEx подключи модуль StrUtils
1
nizzkos
0 / 0 / 0
Регистрация: 21.03.2013
Сообщений: 5
21.03.2013, 22:10  [ТС] 7
Благодарю Всех за помощь!
0
21.03.2013, 22:10
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.03.2013, 22:10

Поиск символа в строке. Как осуществить поиск в обратном направлении
Всем доброго времени суток. Вопрос такой: как осуществить поиск в обратном направлении, т.е. я в...

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

Поиск символа в слове
задача состоит в том, чтобы написать программу (на С), кот. будет проверять правильно ли написано...


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

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

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