Форум: "Основная";
Текущий архив: 2004.11.07;
Скачать: [xml.tar.bz2];
Внизпоиск по тексту Найти похожие ветки
← →
Aleks (2004-10-24 14:15) [0]Как в сроке найти нужное слово, пожалуйсто с примером. Я только начинаю.
← →
Kolan © (2004-10-24 14:33) [1]
procedure TForm1.BitBtn1Click(Sender: TObject);
var s,temp_s, what_to_find:string;
i:integer;
flag:boolean;
begin
flag:=false;
temp_s:="";
what_to_find:="22";
s:=edit1.Text;
for i:=1 to length(s) do
if (s[i]<>"")and(s[i]<>" ") then {Разделители}
temp_s:=temp_s+s[i]
else
begin
if temp_s=what_to_find then flag:=true;
temp_s:="";
end;
if temp_s=what_to_find then flag:=true;
if flag then label1.Caption:="Найдено"
else label1.Caption:="Не Найдено"
end;
Навернека можно упростить но лень только сейчас сделаал.
Там где{Разделители}
добавь все что у тебя разделитель слов. (Точки запятые ...)
← →
Anatoly Podgoretsky © (2004-10-24 14:42) [2]Конечно можно проще, функция POS
← →
Anatoly Podgoretsky © (2004-10-24 14:42) [3]Удалено модератором
← →
Kolan © (2004-10-24 15:15) [4]
> Конечно можно проще, функция POS
Может ему нодо как раз алгоритм.
> Я только начинаю.
!
← →
Anatoly Podgoretsky © (2004-10-24 15:26) [5]Нет ему нужно найти нужное слово
← →
ЮрийК © (2004-10-24 17:31) [6]POS будет находить слова в зависимости от регистра. Поэтому и слово и текст нужно привести к одному регистру.
len := Length(word);
text1 := UpperCase(text);
word1 := UpperCase(word);
nPos := Pos(word1, text1);
if (text1[i-1] in [DELIMITERS]) and (text1[i+len] in [DELIMITERS]) then ShowMessage("OK");
// чтобы найти следующее вхождение
text1 := Copy(text1, i+1, MaxInt);
nPos := Pos(word1, text1);
← →
Aleks (2004-10-25 01:18) [7]Большое Спасибо всем кто откликнулся Вы мне очень помогли.
Вопрос закрыт. :)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.11.07;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.033 c