Оффтоп:
Да чтож тебя, УК
Страдалецъ, всё время на ИИ-то тянет, ну прям мозги должны быть в любой ерунде, и всё тут!
В задании есть
Цитата:
|
...требуется из полной ФИО (Иванов Иван Иваныч) получить в Edit Иванов И.И...
|
и ни каких "иВанов максим петрович"ей оно не подразумевает, сплошные Тер-Петросян Левон Акоповичи, а вешать лишние проверки, хоть и не сложные, - нафига?
На выходе всех функций, по списку:
Цитата:
иВанов м.п.
иВанов м.м.
иВанов м.п.
иВанов
иВанов м.п.
|
Во второй
hfs незначительная ошибка: нужно при первом поиске пробела увеличить i на еденицу
Код:
...
i:= PosEx(' ', ds, i) + 1;
... а
ТСу такое - удалять во входной строке содержимое не есть хорошо, она ж не "заваренная" у вас, но раз уж такой вариант прокатил, то тогда лучше чтоб оно вот так работало, зачем лишние переменные пользовать
Код:
function f(a: string): string;
begin
Result:= Copy(a, 1, Pos(' ', a));
Delete(a, 1, Pos(' ', a));
Result:= Result + a[1] + '.';
Delete(a, 1, pos(' ', a));
Result:= Result + a[1] + '.';
end;
З.Ы. Кстати, можно ещё в Edit`е свойство CharCase в ecLowerCase установить, и тогда совсем весело будет.