Выделение инициалов

[XFilippowX]

Дано: строка с Ф.И.О. (Иванов Иван Иванович)
Надо: выделить инициалы (Иванов И.И.)
Решение:...

[Alex Cones]

Решение:...

Хоть какие то наработки есть? Нет - идем ко мне в асю, есть - выкладываем.

[Сергeй]

100 WMR - и забирай решение

[XFilippowX]

Вот и все дела! На форме 2 едита. В первый вводим Ф.И.О, во второй программа вписывает инициалы.

procedure TForm1.Button1Click(Sender: TObject);
var f,i,o,Word,s : string;
begin
s:=Edit1.Text;
Word:=Copy(s,1,Pos(' ',s));
f:= Word;
Delete(s,1,Length(Word));
Word:=Copy(s,1,Pos(' ',s));
i:=Word[1];
Delete(s,1,Length(Word));
o:=s[1];
Edit2.Text:=f+i+'.'+o+'.';
end;

[psycho-coder]

2XFilippowX А если пробелов много?

[XFilippowX]

Сообщение от psycho-coder

2XFilippowX А если пробелов много?

В моем случае, их только два - после фамилии и имени. А вообще, можно дописать код в событиях едита, на запрет пропечатывать более одного идущего подряд пробела.