Текущий архив: 2005.01.16;
Скачать: 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 вся ветка
Текущий архив: 2005.01.16;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.058 c
