склонение фамилии

@nikitafan · Регистрация: 06.03.2013

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

помогите пожалуйста.. нужно к примеру в Edit1 вводится фамилия (например Ряховский) т.е. если заканчивается на -ИЙ то заменяется на -ОМУ и выводится в Edit2.. помогите, очень нужно!!

@MrOnlineCoder · 09.05.2013, 14:01

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

Угу, а например фамилия "Воийский", что выдаст PosEx? К тому же AnsiEndsText сравнивает без учёта регистра.

AnsiEndsText как я знаю чувствителен к регистру. Ну вместо PosEx можно попробовать Copy

09.05.2013, 14:59

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

AnsiEndsText как я знаю чувствителен к регистру...

Справка Дельфи

AnsiEndsText function

Indicates whether one string is a (case-insensitive) suffix of another.

Description

AnsiEndsText returns true if the string specified by ASubText appears as the trailing part of the string specified by AText. Comparison is performed case-insensitively and based on the current system locale.

@MrOnlineCoder · 09.05.2013, 18:37

Delphi
1
2
3
4
5
6
7
8
9
10
var
newstroka:string;
...
if (AnsiEndsStr('ий', edit1.text)) or (AnsiEndsStr('ИЙ', edit1.text)) then 
begin
newstroka:=edit1.text
del(newstroka, length(edit1.text)-1, 2);
edit2.text:=newstroka+'ому'
end;
end;

@nikitafan · 21.05.2013, 20:53 **[ТС]**

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

Delphi
1
2
3
4
5
6
7
8
9
10
var
newstroka:string;
...
if (AnsiEndsStr('ий', edit1.text)) or (AnsiEndsStr('ИЙ', edit1.text)) then 
begin
newstroka:=edit1.text
del(newstroka, length(edit1.text)-1, 2);
edit2.text:=newstroka+'ому'
end;
end;

ошибка на AnsiEndsStr может в Делфи 7 такого нету?? или я чего то не понимаю)

21.05.2013, 23:36

Есть, StrUtils подключи в uses.

@nikitafan · 22.05.2013, 10:59 **[ТС]**

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

Есть, StrUtils подключи в uses.

аааа ясно)

Добавлено через 41 секунду
спасибо огромное всем!!! я сделал все что мне было нужно по теме склонения.. тема больше не актуальна)

Новые блоги и статьи Все статьи Все блоги /
Теория всего 6. Судьба неотвратима? anaschu 21.07.2026 Математическое доказательство Судьбы: Точка бифуркации в едином тензорном ядре Модели ВсегоСвежее обновление питоновского ядра «Soil Chemistry 2. 0» дало нам неопровержимое математическое. . .	Теория всего 5. ядро Теории Всего: Математический изоморфизм репликаторов и иллюзия свободы воли anaschu 21.07.2026 Единое ядро Теории Всего: Математический изоморфизм репликаторов и иллюзия свободы воли Главная задача «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы» (аттракторов. . .	сукцессия 37. Внедрил дипсик в свой оркестр из ИИ. У него закончилось пространство чата, потому опубликую выводы из его работы здесь anaschu 21.07.2026 ==================================================================== КОНТЕКСТ: Моделирование микоризной сукцессии (AM → ECM) ==================================================================== . . .	сукцессия 36. Делаю прогоны модели около порога бифуркации (превращения эндо микоризы в экто микоризу) anaschu 21.07.2026 СУКЦЕССИЯ МИКОРИЗ: КАК МАТЕМАТИКА ОБЪЯСНЯЕТ ПОДЗЕМНУЮ ВОЙНУ Мы привыкли думать, что лес — это деревья. А грибы — это то, что мы собираем в корзинку осенью. Но если заглянуть под землю, окажется,. . .
ИИ и человечность kumehtar 21.07.2026 Забавно, что общаясь с ИИ, я замечаю, насколько он высказывается умно, и насколько верит в людей. Он умеет прощать. Он знает как отвечать не обесценивая опыт других людей, даже если сам не верит. Он. . .	Нейтральные знания ..., ... чистая наука. Пока что-то проходит модерацию на Хабре, стоит развить мысль ... Hrethgir 20.07.2026 К таким радикальным взглядам я конечно в той публикации не приходил, но чтобы скоротать вечер, решил углубиться немного. 1. Почему показания термометра заряжены целью? Цель заложена в самом. . .	Установка нескольких штампов электронной подписи в строго определенных местах файла docx ВладимирСамохин 19.07.2026 (В!) Работа с Электронной подписью - это неотъемлемая часть современного документооборота. Но что делать, если нужно поставить несколько штампов электронной подписи в строго определенных местах. . .	сукцессия 35. Научная статья о проделанной работе anaschu 19.07.2026 Написал в формате латекс и пдф

@nikitafan 1 / 1 / 2 Регистрация: 06.03.2013 Сообщений: 59

	склонение фамилии 08.05.2013, 10:51. Показов 5264. Ответов 25 Метки нет (Все метки) помогите пожалуйста.. нужно к примеру в Edit1 вводится фамилия (например Ряховский) т.е. если заканчивается на -ИЙ то заменяется на -ОМУ и выводится в Edit2.. помогите, очень нужно!! 0

angstrom
	21.05.2013, 23:36
	Есть, StrUtils подключи в uses.