Извлечение фактов из текста

[Лизавета7]

а да) что-то я стормозила)

[Sciv]

И ещё! Мне нужно чтобы на исходе выдавало
Имя: Андрей Васильев
Организация: Евроопт <---вот таким образом.

Сами уже сделайте. Или у Вас дельфи нет?

Измените эти строчки кода:

  Label2.Caption:='Имя: '+Copy(s,1,pos(',',s)-1);

  Label3.Caption:='Должность: '+Copy(s,1,pos(' ',s)-1);

И в конце добавьте еще одну:

Label4.Caption:='Организация: '+Label4.Caption;

[Лизавета7]

после добавления Label4.Caption:=Label4.Caption+s[i]; такую ерундень показывает

Семь раз слово "Организация"

[Sciv]

после добавления Label4.Caption:=Label4.Caption+s[i]; такую ерундень показывает

А Вы внимательно прочтите, что именно я Вам посоветовал добавить, и найдите десять отличий в коде

Кроме того - это нужно добавить в самом низу кода, перед end'ом процедуры

[Лизавета7]

Сообщение от Sciv

А Вы внимательно прочтите, что именно я Вам посоветовал добавить, и найдите десять отличий в коде

Кроме того - это нужно добавить в самом низу кода, перед end'ом процедуры

СПАСИБО! Всё отлично

Сообщение от Sciv

А Вы внимательно прочтите, что именно я Вам посоветовал добавить, и найдите десять отличий в коде

Кроме того - это нужно добавить в самом низу кода, перед end'ом процедуры

А вот ещё вопросик. Я там исправила ошибку в предложении, поставила запятую после слова "Евроопт" и теперь эта запятая отображается при выведении данных. Как это убрать?

[Sciv]

Вот этот цикл:

While (s[i]<>' ') and (i<= length(s)) do begin

поменять на:

While not (s[i] in [' ','.',',','!','?',':',';']) and (i<= length(s)) do begin

[Лизавета7]

Сообщение от Sciv

Вот этот цикл:

While (s[i]<>' ') and (i<= length(s)) do begin

поменять на:

While not (s[i] in [' ','.',',','!','?',':',';']) and (i<= length(s)) do begin

Благодарю)

[Smitt&Wesson]

Если идти "в лобовую", то задачка не для слабонервных. Вообще, подобные вещи решаются через предикаты. Язык - Пролог.

[artemavd]

ну да, такая штука стоит бесконечно много и вобще, почти нереальна если нет никаких ограничений на предложения.

Не согласен. Если классифицировать всю документацию как надо, то такие задачи решаются очень просто.