Поиск в RichEdit, Memo, Label и тд..

← →
KingDown © (2004-06-13 20:06) [0]

Как сделать так, чтобы можно было выискивать определеную информацию из текстовых форм...

← →
Gero © (2004-06-13 20:36) [1]

Pos

← →
KingDown © (2004-06-14 09:49) [2]

← →
Palladin © (2004-06-14 09:49) [3]

← →
KilkennyCat © (2004-06-14 09:52) [4]

FindDialog

Вот только к лабелу его применять несколько странно :))

← →
Gero © (2004-06-14 09:56) [5]

> KilkennyCat © (14.06.04 09:52)

Сейчас пойдут вопросы, почему он нифига не ищет.

← →
KilkennyCat © (2004-06-14 09:57) [6]

> Gero © (14.06.04 09:56) [5]

так его ж надо поместить на тот компонент, где искать надо (мышкой перемещаем квадратик с биноклей на ТМемо - готово! :) )

← →
Gero © (2004-06-14 10:01) [7]

> KilkennyCat © (14.06.04 09:57)

Чтобы он правильно искал нужно поставить Tag := 1783.

← →
Anatoly Podgoretsky © (2004-06-14 10:23) [8]

KilkennyCat © (14.06.04 09:52) [4]
Почему?

← →
KilkennyCat © (2004-06-14 10:33) [9]

> Anatoly Podgoretsky © (14.06.04 10:23) [8]

Ну, Label все-таки не предназначен для прямого ввода данных пользователем. Конечно, можно, но чаще всего я знаю что у меня там. А раз знаю, зачем искать?

← →
Gero © (2004-06-14 10:35) [10]

> но чаще всего я знаю что у меня там. А раз знаю, зачем искать?

А я знаю, что у меня в Memo. Тоже искать не надо по твоей логике?

← →
KilkennyCat © (2004-06-14 10:38) [11]

> Gero © (14.06.04 10:35) [10]

Если пользователь не может изменить твое Мемо, то не надо. Если ты точно знаешь, где клавиша пробел на клавиатуре, ты же не ищешь ее каждый раз? Или ищешь? Вдруг, еще найдется :)))

← →
Gero © (2004-06-14 10:42) [12]

> KilkennyCat © (14.06.04 10:38)

Конечно может. Но я все равно буду знать, что у меня в Memo.

← →
Anatoly Podgoretsky © (2004-06-14 10:44) [13]

Возражение, что пользователь не может редактировать ярлык не существенное, поскольку можно туда значение занести другим методом.

← →
KingDown © (2004-06-14 22:30) [14]

А подробнее... Что это за POS и с чем его едят?!

← →
Anatoly Podgoretsky © (2004-06-14 22:36) [15]

А ты до сих пор так и не посмотрел справку?
Тебе что ее сюда скопировать?

Ээээ..... ну если нетрудно...:-)

Так может лучше сразу всю справку и на маил и 150 экземплярах?

У меня справка англ...:(

Можно использовать предварительно написанную функцию
FindInText(Text: PChar; Len: Integer): Integer; // Позиция найденного вхождения

В начале:
Text := @RichEdit.Text[1]; // или другое
Len := Length(RichEdit.Text);

Pos := FindInText(Text, Len);

Далее, для нахождения слледующего вхождения:
Inc(Pos);
If (Pos < Len) then begin
Inc(Text, Pos); Dec(Len, Pos);
Pos := FindInText(Text, Len);
end;

Забыл указать в функции, параметр - что ищем, добавьте сами.

всем спасибо!

Поиск в RichEdit, Memo, Label и тд.. Найти похожие ветки