Подсчёт слов в Edit

@egorzhartun · Регистрация: 22.02.2015

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

как подсчитать кол-во слов в edit
и 2 и 3 слово сделать с большой буквы, а буквы, которые идут после 1 буквы удалить

ну вот например
Иванов Иван Петрович
после нажатия на кнопку оставить
Иванов И.П.

@Jason · 29.06.2015, 02:19

Delphi

function edit(text: String): String;
var list: TStringList;
    i: Integer;
begin
    list := TStringList.Create();
    list.Delimiter := ' ';
    list.DelimitedText := text;
    list[1] := UpperCase(PChar(list[1])[0]) + '.';
    list[2] := UpperCase(PChar(list[2])[0]) + '.';
    text := '';
    for i := 0 to list.Count - 1 do
        text := text + ' ' + list[i];
    list.Free;
    result := text;
end;
 
function count(text: String): Integer;
var list: TStringList;
    i: Integer;
    return: Integer;
begin
    return := 0;
    list := TStringList.Create();
    list.Delimiter := ' ';
    list.DelimitedText := text;
    return := list.Count;
    list.Free;
    result := return;
end;

@egorzhartun 0 / 0 / 0 Регистрация: 22.02.2015 Сообщений: 97
		1
	Подсчёт слов в Edit 28.06.2015, 21:18. Показов 1298. Ответов 1 Метки нет (Все метки) как подсчитать кол-во слов в edit и 2 и 3 слово сделать с большой буквы, а буквы, которые идут после 1 буквы удалить ну вот например Иванов Иван Петрович после нажатия на кнопку оставить Иванов И.П. 0

	29.06.2015, 02:19

Подсчёт слов в Edit

Решение