Редактирование String

[SovereignSun]

Чето я туплю страшно, но не могу сообразить как простую задачу решить.
Предположим в Edit1 вбивается Ф.И.О полностью, через пробел, как можно в отдельную переменную кинуть значение этого поля с сокращенным И.О, а фамилию оставить не тронутой.. так чтобы от имени осталась одна Буква заглавная и от Отчества, separator=. ?

[denisbrain]

писал свое время для отчета на Pacale Fastreport-овском в Delphi тоже должен работать

Function GetFIOFromFamNamOth(s:string):string;
var x:integer;
    s2:string;
    Family:string;
    name1:string;
    name2:string;
begin
   Family:='';name1:='';name2:='';
   for x:=1 to length(s) do
     if (s[x] = ' ') or (x=length(s)) then begin if Family='' then Family:=s2
     else if name1='' then name1:=s2
     else name2:=s2;
       s2:='';
     end
     else s2:=s2+s[x];
     if (Family<>'') and (name1<>'') and (name2<>'') then
     result:=Family+' '+name1[1]+'. '+name2[1]+'.'
     else
     if (Family<>'') and (name1<>'')  then   result:=s;

end;

[SovereignSun]

это все для одного Edit? Просто вроде функция простая, можно вопрос, а где он определяет здесь что является фамилией, что именем, а что отчеством?

[denisbrain]

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

это все для одного Edit? Просто вроде функция простая, можно вопрос, а где он определяет здесь что является фамилией, что именем, а что отчеством?

    Family:string; // фамилия
    name1:string; // имя
    name2:string; // отчество

входная строка
Фамилия Имя Отчество
Выходная строка
Фамилия И. О.

возможно у Microsoft-a что то есть на эту тему в Word же как то это делает

[SovereignSun]

Понял.. Спасибо.