| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Срочно нужна помочь в исправлении ошибок! [D7]
Аделина © (2013-05-15 12:39:00)Здравствуйте, прошу помощи у гуру Delphi! Для курсовой взяла программу "Анализ текстов" которая считает повторяющиеся слов, количество слов и предложений в тексте вообще, символов, символов без пробелов. Задумка программы была облегчить свою собственную работу (я пишу статьи-копирайт, рерайт), чтобы не нужно было самой искать повторения слов. но в программу добавила отдельную кнопку найти слово, которая должна показывать в тексте заданное слово, точнее все повторения этого слова без учета регистра. но программа находит только самое первое, да еще и на регистр обращает внимание. Еще возникли проблемы с добавлением функции проверки орфографии с посылом текста из мемо в word: в word текст приходит с нормальным разделением абзацев а вот из него в memo возвращает без абзацев вообще, то сесть все сплошными строками. Помогите пожалуйста исправить эти косяки.
Очень надеюсь на помощь!
Rouse_ (2013-05-17 22:01:00) [1]
> Аделина (15.05.13 15:32) [17]
> если бы я все знала я бы не спрашивала. Думаю, что этот
> форум создан для консультации и помощи таким новичкам как
> я
Новички должны получать знания в вузах, а форум создан немного для других целей.
Да, ну и действительно - определитесь уже с окончанием глаголов.
На этой веселой ноте думаю, стоит завершить ветку...
turbouser (2013-05-17 17:55:00) [2]
> Плохиш ©
=)
turbouser (2013-05-17 17:55:00) [3]Помощи в чем? Хоть бы свой код был, а не копипаста, например от сюда http://programmersforum.ru/showthread.php?t=21692
Плохиш (2013-05-17 17:52:00) [4]
> видимо мне здесь не дождаться помощи
видимо да
http://programmersforum.ru/showthread.php?p=114015
чё вы там понять-то пытаетесь?
Аделина (2013-05-17 17:28:00) [5]Вам лишь бы осудить. если я что то не понимаю, то я пытаюсь все-таки это понять, поэтому я обратилась сюда. видимо мне здесь не дождаться помощи
Anatoly Podgoretsky (2013-05-15 16:08:00) [6]> Аделина (15.05.2013 15:41:19) [19]
Девушка уже давно бы
психанула.
Anatoly Podgoretsky (2013-05-15 16:06:00) [7]> Аделина (15.05.2013 15:07:11) [11]
Если новичок то не берись
за сложные вещи
Jeer (2013-05-15 15:59:00) [8]Проблема непонимающих состоит в недопонимании, что форум и его участники ничем Вам не обязаны.
Тем более, когда речь заходит о выполнении учебных заданий.
Аделина (2013-05-15 15:41:00) [9]но если Вы разбираетесь в чем-то и понимаете это хорошо, почему не объяснить доступно непонимающим?
clickmaker (2013-05-15 15:37:00) [10]> форум создан для консультации и помощи таким новичкам как
> я
форум не заменяет букварь, справку и гугл
Аделина (2013-05-15 15:32:00) [11]если бы я все знала я бы не спрашивала. Думаю, что этот форум создан для консультации и помощи таким новичкам как я
Плохиш (2013-05-15 15:29:00) [12]Пациент скорее мёртв, чем жив.
Аделина (2013-05-15 15:22:00) [13]так получается мне нужно писать:
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();
RichEdit.FindText(substr,Form1.memo1.Lines.Test)-1;
Form1.memo1.SelLength:=Length(substr);
да?
clickmaker (2013-05-15 15:17:00) [14]> место Pos писать RichEdit.FindText?
в том числе
Аделина (2013-05-15 15:10:00) [15]
Form1.memo1.SelStart:=Pos(substr,Form1.memo1.Lines.Text)-1;
мне место Pos писать RichEdit.FindText?
clickmaker (2013-05-15 15:08:00) [16]> ContainsText
вру. RichEdit.FindText
Аделина (2013-05-15 15:07:00) [17]а можно поподробнее? я просто новичок в Delphi
clickmaker (2013-05-15 15:05:00) [18]> выделяла все вхождения этого слова в тексте
это нужно взять RichEdit и менять формат найденных участков
> да еще и зависит от регистра
ContainsText
Аделина (2013-05-15 15:01:00) [19]Неужели никто не знает?
Аделина (2013-05-15 14:28:00) [20]
procedure TForm5.Button1Click(Sender: TObject);
var s:string;
begin
Application.Minimize;
s:=Memo1.Lines.GetText; //В переменной s едит текст из поля Memo
WordDocument1.Range.Set_Text(s);// Отправляем в Word текст
WordDocument1.CheckSpelling(); //запускаем проверку орфографии
WordDocument1.Activate();
end;
procedure TForm5.Button2Click(Sender: TObject);
var s:string;
begin
//По нажатию на эту кнопку в поле Memo загоняется исправленный в Word-е
//текст
Memo1.Clear(); //Очищаем Memo от старого текста
s:=WordDocument1.Range.Get_Text(); //В переменную s загоняем текст из Word-а
Memo1.Text:=s; //Теперь в Memo лежит исправленный текст
//Только, блин, почему-то не разбивается на строки
end;
procedure TForm5.Button3Click(Sender: TObject);
var SaveChanges:OleVariant; //Параметр закрывания Worda
begin
SaveChanges:=False;// Закрыть без сохранения изменений
WordDocument1.Close(SaveChanges);
WordApplication1.Disconnect();//закрываем Word.
end;
procedure TForm5.FormCreate(Sender: TObject);
begin
Memo1.Clear();//Очищаем Memo
WordApplication1.Visible:=True;
end;
а здесь я получается проверяю текст на орфографию и пунктуацию через связь с вордом. проблема в том, что в Word текст приходит с разделением на абзацы, а вот из Worda в memo возвращает без абзацев вообще.
| |
Страницы: 