|
Вопрос # 5 033/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
У меня есть Edit1, для ввода данных. Memo1, для отображения. Как мне найти значения что я ввёл в Edit1. допустим как в телефонном справочнике, ввёл букву А, всё на А, ввёл Ав, всё на Ав, ввёл Авт всё на Авт и так далее.
Заранее благодарен.
 |
Вопрос задал: Толков Геннадий Викторович (статус: Посетитель)
Вопрос отправлен: 20 февраля 2011, 02:02
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 20 февраля 2011, 10:01; участников в обсуждении: 1.
|
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 » Работа с компонентами и библиотеками модератором Ерёмин А.А.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
