Срочно нужна помочь в исправлении ошибок!

← →
Аделина (2013-05-15 12:39) [0]

Здравствуйте, прошу помощи у гуру Delphi! Для курсовой взяла программу "Анализ текстов" которая считает повторяющиеся слов, количество слов и предложений в тексте вообще, символов, символов без пробелов. Задумка программы была облегчить свою собственную работу (я пишу статьи-копирайт, рерайт), чтобы не нужно было самой искать повторения слов. но в программу добавила отдельную кнопку найти слово, которая должна показывать в тексте заданное слово, точнее все повторения этого слова без учета регистра. но программа находит только самое первое, да еще и на регистр обращает внимание. Еще возникли проблемы с добавлением функции проверки орфографии с посылом текста из мемо в word: в word текст приходит с нормальным разделением абзацев а вот из него в memo возвращает без абзацев вообще, то сесть все сплошными строками. Помогите пожалуйста исправить эти косяки.
Очень надеюсь на помощь!

← →
Плохиш © (2013-05-15 13:22) [1]

Подозреваю, что помощь сокурсника дешевле получится.

← →
clickmaker © (2013-05-15 13:36) [2]

а, главное, - приятнее )

← →
Аделина (2013-05-15 13:54) [3]

Сокурсники не знают. могу выслать текст программы если нужно - мне главное понять как исправить

← →
Плохиш © (2013-05-15 14:05) [4]

> могу выслать текст программы если нужно

только вместе с купюрой в 100 европейских енотов.

← →
Аделина (2013-05-15 14:13) [5]

я серьезно спрашиваю. платно я могу в любом месте заказать. мне нужны советы опытных пользователей delphi

← →
brother © (2013-05-15 14:22) [6]

вот именно! советы! показывай не понятные участки кода...

← →
Аделина (2013-05-15 14:26) [7]

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;
Вот здесь я получается хочу чтобы после вводу слова который мне нужно найти в тексте, точнее всего его вхождения в текст без учета регистра и нажатия кнопки мне программа выделяла все вхождения этого слова в тексте, но она выдает только одно да еще и зависит от регистра

← →
Аделина (2013-05-15 14:28) [8]

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 возвращает без абзацев вообще.

← →
Аделина (2013-05-15 15:01) [9]

Неужели никто не знает?

← →
clickmaker © (2013-05-15 15:05) [10]

> выделяла все вхождения этого слова в тексте

это нужно взять RichEdit и менять формат найденных участков

> да еще и зависит от регистра

ContainsText

← →
Аделина (2013-05-15 15:07) [11]

а можно поподробнее? я просто новичок в Delphi

← →
clickmaker © (2013-05-15 15:08) [12]

> ContainsText

вру. RichEdit.FindText

← →
Аделина (2013-05-15 15:10) [13]

Form1.memo1.SelStart:=Pos(substr,Form1.memo1.Lines.Text)-1;
мне место Pos писать RichEdit.FindText?

← →
clickmaker © (2013-05-15 15:17) [14]

> место Pos писать RichEdit.FindText?

в том числе

← →
Аделина (2013-05-15 15:22) [15]

так получается мне нужно писать:
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);
да?

← →
Плохиш © (2013-05-15 15:29) [16]

Пациент скорее мёртв, чем жив.

← →
Аделина (2013-05-15 15:32) [17]

если бы я все знала я бы не спрашивала. Думаю, что этот форум создан для консультации и помощи таким новичкам как я

← →
clickmaker © (2013-05-15 15:37) [18]

> форум создан для консультации и помощи таким новичкам как
> я

форум не заменяет букварь, справку и гугл

← →
Аделина (2013-05-15 15:41) [19]

но если Вы разбираетесь в чем-то и понимаете это хорошо, почему не объяснить доступно непонимающим?

Проблема непонимающих состоит в недопонимании, что форум и его участники ничем Вам не обязаны.
Тем более, когда речь заходит о выполнении учебных заданий.

> Аделина (15.05.2013 15:07:11) [11]

Если новичок то не берись
за сложные вещи

> Аделина (15.05.2013 15:41:19) [19]

Девушка уже давно бы
психанула.

← →
Аделина (2013-05-17 17:28) [23]

Вам лишь бы осудить. если я что то не понимаю, то я пытаюсь все-таки это понять, поэтому я обратилась сюда. видимо мне здесь не дождаться помощи

> видимо мне здесь не дождаться помощи

видимо да
http://programmersforum.ru/showthread.php?p=114015
чё вы там понять-то пытаетесь?

Помощи в чем? Хоть бы свой код был, а не копипаста, например от сюда http://programmersforum.ru/showthread.php?t=21692

> Аделина (15.05.13 15:32) [17]
> если бы я все знала я бы не спрашивала. Думаю, что этот
> форум создан для консультации и помощи таким новичкам как
> я

Новички должны получать знания в вузах, а форум создан немного для других целей.
Да, ну и действительно - определитесь уже с окончанием глаголов.
На этой веселой ноте думаю, стоит завершить ветку...

Срочно нужна помочь в исправлении ошибок! Найти похожие ветки