Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 5 033

/ вопрос открыт /

Доброго времени суток, уважаемые эксперты!
У меня есть Edit1, для ввода данных. Memo1, для отображения. Как мне найти значения что я ввёл в Edit1. допустим как в телефонном справочнике, ввёл букву А, всё на А, ввёл Ав, всё на Ав, ввёл Авт всё на Авт и так далее.
Заранее благодарен.

Толков Геннадий Викторович Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Толков Геннадий Викторович (статус: Посетитель)
Вопрос отправлен: 20 февраля 2011, 02:02
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 1; последнее сообщение — 20 февраля 2011, 10:01; участников в обсуждении: 1.
7Ghost

7Ghost (статус: 1-ый класс), 20 февраля 2011, 10:01 [#1]:

Здравствуйте Геннадий Викторович, если что-то не так пишите сюда в форум.

Вот ссылка на скачивание исходника написанного мною для вашей задачи: http://files.mail.ru/3P3B4V

Вот решение:

procedure TForm1.Button1Click(Sender: TObject);
var
ToFind: string; // строка, вхождение которой ищем
FindIn: string; // где ищем
Found: integer; // результат поиска
FoundLen: integer; //длина найденного текста
begin
ToFind := Edit1.Text; //Поисковая строка
FindIn := Memo1.Text;//Текст, где будем искать
FoundLen := Length(Edit1.Text);
Found := Pos(AnsiUpperCase(ToFind), AnsiUpperCase(FindIn));
if Found > 0 then
begin
Memo1.SelStart:= Found-1;
Memo1.SelLength := FoundLen;
Memo1.SetFocus; //выделяем совпадающую часть текста
end;
end;

20 февраля 2011, 19:48: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Работа с компонентами и библиотеками модератором Ерёмин А.А.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 30 мая 2023, 10:14
Выполнено за 0.02 сек.
Рейтинг@Mail.ru