| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Поиск слова в строке [D7]

lewka-serdceed ©   (2008-06-26 15:41:00) 

Помогите пожалуйста! Как найти все слова с тексте или строке с заданным символом?

---

lewka-serdceed   (2008-06-27 09:43:00) [1]

спасибо. Я разобрался с этим вопросом. извините за беспокойство

---

{RASkov}   (2008-06-27 00:14:00) [2]

Да какой он сердцеед, он lewka-spinogryz))
Таким пример кодом пишешь, а они второй раз спросят...(

---

Palladin   (2008-06-26 19:19:00) [3]

угу... голове тупо кровообращения не хватает...

---

Галинка   (2008-06-26 19:02:00) [4]

{RASkov} ©   (26.06.08 15:55) [9]

он сердцеед, если верить нику. А гранит науки не дается. ))) Тверже сердец женских ))

---

TUserClass   (2008-06-26 17:46:00) [5]

Далее только морфология ... :)

---

TUserClass   (2008-06-26 17:43:00) [6]

> Правильный-Вася   (26.06.08 17:30) [14]


Это ж всего лишь пример.

---

Правильный-Вася   (2008-06-26 17:30:00) [7]

> TUserClass ©   (26.06.08 16:06) [13]

"сталь марки Н10Х8 что-то редко применяется"
сколько слов? а у тебя?

---

TUserClass   (2008-06-26 16:06:00) [8]

...

procedure GetWords (Text : string; Sym : char; var Res : TStringList);
var
 I : dword;
 TempS : string;
begin
 TempS := '';

 For I := 1 to Length (Text) do begin
   If ((Text[I] >= 'a') and (Text[I] <= 'z')) or
      ((Text[I] >= 'A') and (Text[I] <= 'Z')) or
      ((Text[I] >= 'а') and (Text[I] <= 'я')) or
      ((Text[I] >= 'А') and (Text[I] <= 'Я')) then begin
      TempS := TempS + Text[I];
   end else begin
     If TempS <> '' then begin
       If Pos (Sym, TempS) <> 0 then begin
         Res.Add(TempS);
       end;
       TempS := '';
     end;
   end;
 end;
end;

...

procedure TForm1.FormCreate(Sender: TObject);
var
 List : TStringList;
begin
 List := TStringList.Create;
 GetWords ('А как само слово то мне найти? Pos мне покажет позицию символа только, а он может находиться не в начале', 'я', List);
 Memo1.Lines.AddStrings(List);
 List.Free;
end;

---

Правильный-Вася   (2008-06-26 16:02:00) [9]

tstringlist юзай
там есть разбивка на слова
потом по ним пройдешься Pos, узнаешь, в каких есть

---

Dennis I. Komarov   (2008-06-26 16:02:00) [10]

> [10] Riply ©   (26.06.08 16:01)

Так за каждое найденое слово :) Нормуль?

---

Riply   (2008-06-26 16:01:00) [11]

>  [7] Dennis I. Komarov ©   (26.06.08 15:52)
> $100

Должно быть стыдно просить так мало. Хоть один нолик да надо приписать :)

---

{RASkov}   (2008-06-26 15:55:00) [12]

> [6] lewka-serdceed   (26.06.08 15:50)

Ты программист или клоун?

---

clickmaker   (2008-06-26 15:54:00) [13]

> [6] lewka-serdceed   (26.06.08 15:50)
> А как само слово то мне найти?

а что по-твоему "слово"?

---

Dennis I. Komarov   (2008-06-26 15:52:00) [14]

> [6] lewka-serdceed   (26.06.08 15:50)

$100

---

lewka-serdceed   (2008-06-26 15:50:00) [15]

А как само слово то мне найти? Pos мне покажет позицию символа только, а он может находиться не в начале

---

Dennis I. Komarov   (2008-06-26 15:50:00) [16]

> [3] lewka-serdceed   (26.06.08 15:47)

И тебе нужен бул?

---

clickmaker   (2008-06-26 15:48:00) [17]

> [3] lewka-serdceed   (26.06.08 15:47)

и?
позиция символа в тексте. Проблема определить слово, где он?

---

lewka-serdceed   (2008-06-26 15:47:00) [18]

Pos это же тип integer

---

Плохиш   (2008-06-26 15:45:00) [19]

О, фсё продолжается...

---

clickmaker   (2008-06-26 15:44:00) [20]

Pos()
либо в цикле

---

Наверх