Delphi 6
В общем текстовый файл открывается в TMemo. Нужно написать процедуры делающие следующее:
1) Находит вхождение в текст повторы буквы А более одного раза и удаляет их
2) счтитает количество слов состоящих из 1, 2, 3, 4, и т.д. символов и выводит их
3)Дан файл текстовый, содержащий слово "наказывает" или "наказывают". Нужно удалить текст идущий до этого слова.
4)Открыть текстовый файл и отобразить его в 16-тиричном виде.
Для каждого задания нужна своя прцедура. Я думаю, что это не сложно делается и прошу всех помочь мне. Если не трудно напишите их.
Если попал не в тот раздел, просьба модерам не убивать его.
Заранее всем благодарен.
[email protected]

Уточнить надо бы:

1) Имеется ввиду замена "AA"->"A"?

3) Удалить от начала текста или от начала строки?

4) Смысл в разработке алгоритма, или подойдёт третьесторонний компонент?


Модератор: Топик  попал в тот раздел, но есть большая просьба задавать не более одного вопроса в одном топике. В Вашем случае надо было создать 4 отдельных топика

1) Нет. Нужно удалить буквы А, стоящие друг за другом более 1 раза.
3) Текст удалить от начала текста (сорри за тавтологию). Т.е. остается текст идущий после этого слова.
4) Если можно поподробнее и о том и о другом. Но скорее всего просто алгоритм. Я дельфи изучаю около 2х недель, поэтому прошу снисхождения в моих "ламерских" вопросах.

Модератору: все понял, в следующий раз так и поступлю.

1) Тогда вообще не понял, приведи пример фразы до и после преобразования.

Теперь необходимые и достаточные сведения о строках, которые помогут решить проблему:

1. Memo.lines.text - вот здесь хранится весь текст Memo как одна строка

2. Функция Copy(s,x,y) - вырезает из строки s подстроку с позиции x и длинной y
 пример:
   Copy('вырезает из строки',5,3)
 вернёт 'зае'

3. Функция Pos(s1, s2) - определяет позицию строки в подстроке:
 пример:
   Pos('из','вырезает из строки')
 вернёт 10

Твои задания очень легки, попробуй для начала сам, а если не получится мы поможем, ИМХО лучше в таких случаях всё-таки самому разобраться чем получить готовое решение

1) Извиняюсь. Там надо удалить все вхождения букв А более одного раза, т.е. АА>>А
Прошу сразу написать процедуры. Я бы и сам по разбирался, но просто нет времени.
А как поместить строку в copy, ведь текст каждый раз новый, а если ставишь какую-нибудь переменную, функция не выполняется.

гы-гы