| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Срочно нужна помочь в исправлении ошибок! [D7]
Аделина © (2013-05-15 12:39:00)Здравствуйте, прошу помощи у гуру Delphi! Для курсовой взяла программу "Анализ текстов" которая считает повторяющиеся слов, количество слов и предложений в тексте вообще, символов, символов без пробелов. Задумка программы была облегчить свою собственную работу (я пишу статьи-копирайт, рерайт), чтобы не нужно было самой искать повторения слов. но в программу добавила отдельную кнопку найти слово, которая должна показывать в тексте заданное слово, точнее все повторения этого слова без учета регистра. но программа находит только самое первое, да еще и на регистр обращает внимание. Еще возникли проблемы с добавлением функции проверки орфографии с посылом текста из мемо в word: в word текст приходит с нормальным разделением абзацев а вот из него в memo возвращает без абзацев вообще, то сесть все сплошными строками. Помогите пожалуйста исправить эти косяки.
Очень надеюсь на помощь!
Аделина (2013-05-15 14:26:00) [21]
procedure TForm2.Button1Click(Sender: TObject);
var i,o:Integer;
substr,s,st:string;
begin
substr:=form2.Edit1.Text;
for i:=0 to Form1.memo1.lines.count do
begin
s := Form1.memo1.Lines[ i ];
Form1.memo1.SetFocus();
Form1.memo1.SelStart:=Pos(substr,Form1.memo1.Lines.Text)-1;
Form1.memo1.SelLength:=Length(substr);
end;
close;
end;
Вот здесь я получается хочу чтобы после вводу слова который мне нужно найти в тексте, точнее всего его вхождения в текст без учета регистра и нажатия кнопки мне программа выделяла все вхождения этого слова в тексте, но она выдает только одно да еще и зависит от регистра
brother (2013-05-15 14:22:00) [22]вот именно! советы! показывай не понятные участки кода...
Аделина (2013-05-15 14:13:00) [23]я серьезно спрашиваю. платно я могу в любом месте заказать. мне нужны советы опытных пользователей delphi
Плохиш (2013-05-15 14:05:00) [24]
> могу выслать текст программы если нужно
только вместе с купюрой в 100 европейских енотов.
Аделина (2013-05-15 13:54:00) [25]Сокурсники не знают. могу выслать текст программы если нужно - мне главное понять как исправить
clickmaker (2013-05-15 13:36:00) [26]а, главное, - приятнее )
Плохиш (2013-05-15 13:22:00) [27]Подозреваю, что помощь сокурсника дешевле получится.
| |
Страницы: 