Как получить первые буквы из слов в предложении?

[Аватар]

Аватар, а что у тебя идет такое после then?

Ни чего необычного - посимвольное формирование строки, символы добавляются в начало

[Человек_Борща]

Мой вариант:

function Get1stWordsLetter(const aStr: string): string;
var
  s, rS: string;
  p: Integer;
begin
  s := Trim(aStr);
  rS := s[1];
  p := 1;
  while p > 0 do
  begin
    p := Pos(' ', s);
    if p > 0 then
    begin
      rs := rS + s[p + 1];
      Delete(s, 1, p);
    end;
  end;
  Result := rS;
end;

//Привет: Вася скушал манную кашу
//Ответ: Всмк

[Stilet]

а если не через консоль?

То еще лучше.
Все там работает, просто ты как-то не так применяешь.

[Кольша]

sorry забыл..

   s:=NewText.Text;
   while Pos(' ',s) > 0 do
   begin
     Rezult.Text:=Rezult.Text + Copy(s,1,Pos(' ',s) - 1)[1];
     Delete(s,1,Pos(' ',s) + 1);
   end;
   Rezult.Text:=Rezult.Text + Copy(s,1,Length(s))[1];

так вроде

[evg_m]

     Rezult.Text:=Rezult.Text + Copy(s,1,Pos(' ',s) - 1)[1];

<=>

Result.Text:=Result.text +copy(s, 1, 1);
Result.Text:=Result.text +s[1];

Аналогично copy(s, 1, length(s))[1]) <=> s[1]
с той же вероятностью AV при пустой строке (если последним в исходной строке будет пробел).

[raxp]

artemavd,

[artemavd]

Serge_Bliznykov, нет, символов не будет.
У меня вопрос в другом сейчас: как сохранить пробелы между полученными первыми буквами? Возникла необходимость не убирать пробелы. Например, предложение "Скоро Новый Год!". Должно получиться "С Н г". Понимаю, что там что-то надо подправит, да вот не соображу, что именно. Прошу помощи?
На примере кода от raxp.

[Аватар]

Если не важно сколько пробелов между словами, то так

for i:=0 to t.count-1 do
  temp:= temp + copy(t[i],1,1) + ' ';
edit2.Text:= Trim(temp);

[Человек_Борща]

править много и не надо:

function Get1stWordsLetter(const aStr: string): string;
var
  s, rS: string;
  p: Integer;
begin
  s := Trim(aStr);
  rS := s[1];
  p := 1;
  while p > 0 do
  begin
    p := Pos(' ', s);
    if p > 0 then
    begin
      rs := rS +' '+ s[p + 1];
      Delete(s, 1, p);
    end;
  end;
  Result := rS;
end;