| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Первая буква в слове. [D6, WinXP]
Алексей © (2004-12-29 23:09:00)Всем привет!
В Memo загружен текст (каждое слово на новой строке), слова, конечно, разные. Цель: перенести из Memo1 в Memo2 все слова, начинающиеся, например, на букву я. Моя проблема заключается в том, что я не знаю, как проверить первую букву в слове, может кто подскажет?
Алексей (2004-12-29 23:46:00) [1]2 Yanis:
Огромное спасибо за помощь!
Yanis (2004-12-29 23:34:00) [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;
Palladin (2004-12-29 23:30:00) [3]TMemo.Lines + F1
| |
