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

[Yurk@]

рано или поздно прога рухнет

даже спорить не буду)) решение сырое) дотачивать под конкретную задачу нужно)

[iworm2009]

1. проверяем длину строки
1.1 если пустая не делаем ничего
1.2 если более 1 символа запускаем цикл с 2-го символа до конца строки и проверяем предыдущий символ на наличие
1.3 в остальном поднимаем единственный символ

  l := length(s);
  if l > 0 then
  begin
    s[1] := UpCase(s[1]);
    if l > 1 then
      for i := 2 to l do
        if (s[i - 1] in [' ', ',', '.']) then
          s[i] := UpCase(s[i])
  end;

под конкретную задачу)) правда есть одна "Бээда" - может апкейзнуть пару раз первый символ

[BDA]

iworm2009, смысла проверять if l > 1 then нет, так как цикл не выполнится в случае, когда l <= 1.

[Poma][a]

Кстати, почему все так уверены, что в строке будут только английские буквы?

[iworm2009]

Сообщение от Poma][a

Кстати, почему все так уверены, что в строке будут только английские буквы?

  s[1] := AnsiUpperCase(s[1])[1];
     ...
          s[i] := AnsiUpperCase(s[i])[1]

[Эйфория=*]

Приветик)мне нужна твоя помощь очень