Скачать: CL | DM;

Первая буква в слове.   Найти похожие ветки 

← →
Алексей   (2004-12-29 23:09) [0]

Всем привет!
В Memo загружен текст (каждое слово на новой строке), слова, конечно, разные. Цель: перенести из Memo1 в Memo2 все слова, начинающиеся, например, на букву я. Моя проблема заключается в том, что я не знаю, как проверить первую букву в слове, может кто подскажет?

---

← →
Palladin ©   (2004-12-29 23:30) [1]

TMemo.Lines + F1

---

← →
Yanis ©   (2004-12-29 23:34) [2]

оч просто:
(на форме 2 TMemo: Memo1, Memo2)

var
 i:Integer;
 c: Char;
begin
 Memo2.Clear;
 C := "я";
 for i := 0 to Memo1.Lines.Count-1 do
   if Memo1.Lines.Strings[i][1] = C then
     Memo2.Lines.Add(MEmo1.Lines.Strings[i]);
end;


---

← →
Алексей   (2004-12-29 23:46) [3]

2 Yanis:
Огромное спасибо за помощь!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.036 c