Во введенной строке поменять первые буквы каждого слова на прописные

[Эйфория=*]

составить текст программы, которая позволяет по введенной строке поменять первые буквы каждого слова на прописные. Вывести на экран символьную строку до и после изменения

[Yurk@]

и?
что не получается то?
функции Pos и PosEx тебя спасут

[Эйфория=*]

все не получается

[Tclass]

Сообщение от Эйфория=*

все не получается

что конкретно не получается? У вас есть какие нибудь наработки? Скиньте сюда, посмотрим.

[Эйфория=*]

procedure TForm1.Button1Click(Sender: TObject);
var
s : string;
i : Integer;
begin
s := Edit1.Text;
for i := 1 to Length(s) do
if (i = 1) or (s[i-1] in [' ', ',', '.']) then s[i] := AnsiUpperCase(s[i])[1];
ShowMessage(s);
end;

[Эйфория=*]

как сделать так чтобы в ответ выводилась исходная строчка и новая редактированная

[Yurk@]

var
  s : string;
  i : integer;
begin
  s := Trim(Edit1.Text);
  s[1] := UpCase(s[1]);
  for i := 2 to Length(s) do
    if s[i] in [' ', ',', '.'] then
      s[i+1] := UpCase(s[i+1]);
  Edit2.Text := s;
end;

[BDA]

Yurk@, for i := 2 to Length(s) - 1 do.

[zetrix]

Ещё бы условие добавить, по длине строки. А то менее 3-х символов (например "ё ") и всё, "ошибка по адресу...", хотя фикс от BDA всё поправит

[BDA]

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

Ещё бы условие добавить, по длине строки. А то менее 3-х символов (например "ё ") и всё, "ошибка по адресу..."

Достаточно проверить на пустоту строку s.