Не могу найти ошибку в коде

@vladellec · Регистрация: 15.04.2015

Студворк — интернет-сервис помощи студентам

Есть текст обычный. Провели его через морфологический анализатор русского языка. Теперь 2 файла: первый оригинал текста, второй размеченный.
слева обычный
справа размеченный
Есть БД (со столбцами: объект1, объект 2, экземпляр, тип отношения). Загружаем Текст первый в RichEdit. а второй в RichEdit2.
из БД берутся слова(они хранятся в массиве). И эти слова нужно сначала найти в тексте слева. То есть. Если наше слова из БД находится между { и = то, слово стоящее перед { надо закрасить, но в тексте который срава)
ПРоцесс работы программы:Загрузить тексты в ричэдиты. Извлекаем слова из БД в массив,по запросу. Затем Эти слова ищем в тексте размеченном(ричэдит1). если в указанный промежуток { и = попадает, значит это же слово закрашиваем его в тексте обычном(ричэдит2).
Видимость RichEdit1=false
он для работы только с ним
После раскраски: если в пределах одного предложения есть два закрашенных слова существительных (в размеченном тексте они =S и падеж: им, а также есть любое не закрашенное слово =V то эту тройку нужно изъять)
и выдать пользователю.
он говорит отменить или добавить в бд

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
function SearchForText(RichEdit: TRichEdit): Boolean;
var
StartPos, Position, Endpos: Integer;
begin
for i:=1 to count do
begin
StartPos := 0;
with RichEdit do
begin
Endpos := Length(RichEdit.Text);
Lines.BeginUpdate;
while FindText(slova[i], StartPos, Endpos, [stMatchCase])<>-1 do
begin
Endpos := Length(RichEdit.Text) - startpos;
Position := FindText(slova[i]+' ', StartPos, EndPos, []); //stMatchCase
Inc(StartPos, Length(slova[i]+' '));
SetFocus;
SelStart := Position;
SelLength := Length(slova[i]);
SelAttributes.Style:=[fsBold];
SelAttributes.Color:=clYellow;
 
end;
Lines.EndUpdate;
end;
end;
end;
 
procedure TForm1.btn1Click(Sender: TObject);
begin
try
i:=1;
ADOQuery1.Active := False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Predikat WHERE TipOtn = "'+ DBComboBox1.Text+'"');
ADOQuery1.Active:=True;
while(ADOQuery1.Eof <> true) do
begin
slova[i]:= ADOQuery1.Fields[1].AsString;
i:=i+1;
slova[i]:= ADOQuery1.Fields[2].AsString;
i:=i+1;
slova[i]:= ADOQuery1.Fields[3].AsString;
count:=i;
i:=i+1;
ADOQuery1.Next;
end;
 
end;
end;
Пример. вот одно предложение в оригинале такое: 
1. Процессор есть центральное устройство компьютера.
в размеченном такое:
Процессор{процессор=S,муж,неод=им,ед|=S,муж,неод=вин,ед}
есть{есть=V,несов=инф,пе|есть=S,сред,неод=им,ед|=V,нп=наст,ед,изъяв,2-л,несов|=V,нп=наст,ед,изъяв,3-л,несов }
центральное{центральный=A=им,ед,полн,сред|=A=вин,ед,полн,сред}
устройство{устройство=S,сред,неод=им,ед|=S,сред,неод=вин,ед}
компьютера{компьютер=S,муж,неод=род,ед}

Пример. вот одно предложение в оригинале такое:
1. Процессор есть центральное устройство компьютера.
в размеченном такое:
Процессор{процессор=S,муж,неод=им,ед|=S, муж,неод=вин,ед}
есть{есть=V,несов=инф,пе|есть=S,сред,нео д=им,ед|=V,нп=наст,ед,изъяв,2-л,несов|=V,нп=наст,ед,изъяв,3-л,несов }
центральное{центральный=A=им,ед,полн,сре д|=A=вин,ед,полн,сред}
устройство{устройство=S,сред,неод=им,ед| =S,сред,неод=вин,ед}
компьютера{компьютер=S,муж,неод=род,ед}

@vladellec · 10.05.2015, 19:59 **[ТС]**

VladWH, Но у меня почему то он не заполняет словами массив. Пошаговая проверку делал, там проверяет на

Delphi
1
for i:=0 to High(VWords) do

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

@VladWH · 10.05.2015, 23:48

В том что в массиве 0 элементов. Видимо ты его не создал или в размеченном тексте нет ни одного глагола

@vladellec · 11.05.2015, 01:02 **[ТС]**

VladWH, Подключение есть. У тебя выдается предложение. А вот как выдавать триплеты: слово S, слово S, слово V?

@VladWH · 11.05.2015, 10:57

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

Новые блоги и статьи Все статьи Все блоги /
Жара жесть. kumehtar 18.08.2026 Пролетают летом дни Тридцать пять жары в тени. Каждый август год от года Дарит жаркую погоду.	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .
Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .

@VladWH 243 / 193 / 94 Регистрация: 01.05.2015 Сообщений: 732
	10.05.2015, 23:48
	В том что в массиве 0 элементов. Видимо ты его не создал или в размеченном тексте нет ни одного глагола 0

@vladellec 0 / 0 / 0 Регистрация: 15.04.2015 Сообщений: 59
	11.05.2015, 01:02 [ТС]
	VladWH, Подключение есть. У тебя выдается предложение. А вот как выдавать триплеты: слово S, слово S, слово V? 0

@VladWH 243 / 193 / 94 Регистрация: 01.05.2015 Сообщений: 732
	11.05.2015, 10:57
	Записывать их в переменные при анализе приложения... сейчас только кол-во считается, допиши чтобы найденное слово записывалось в переменную и все 1