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

[artemavd]

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

[raxp]

класс

t: TSringList
temp: string = '';

t.Delimiter:= ' '
t.text:= 'Вася пришел домой с покупками'

for i:=0 to t.count-1 do
 temp:= temp + t[i][1]

Как то так.

[Кольша]

var
s,ss:string;
begin
s:='Вася пришел домой с покупками';
if pos(' ',s)<0 then exit;
while pos(' ',s)>0 do
begin
ss:=ss+copy(s,1,pos(' ',s)-1);
delete(s,1,pos(' ',s)+1);
end;
ss:=ss+copy(s,1,length(s));

Быдло код вероятно не будет работать или не правильно будет..

[evg_m]

result:='';
// проверить что первый символ не пробел и добавить в этом случае
if (length(s)>0) and (s[1]<>' ') then result:=s[1];
//либо немного повыкрутасничить s:=' ' +s; и теперь первый всегда пробел
for j:=1 to length(s)-1 do
  if (s[j]=' ') and (s[j+1]<>' ') then result:=result+s[j+1];

[Stilet]

Присоединяюсь к Raxp-у.
Только:

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

Это если строка пуста чтоб ошибку не дало.
И, дружище, код то спецтегом выделяй, пример дурной подаешь таки

[artemavd]

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

класс t: TSringList
temp: string = '';

t.Delimiter:= ' '
t.text:= 'Вася пришел домой с покупками'

for i:=0 to t.count-1 do
temp:= temp + t[i][1]
Как то так.

Этот код отрабатывает только для первого слова. Первая буква берется, но с остальными словами не работает.
А вот код Кольша, который я переделал под себя:

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

Но он просто объединяет все слова в одно слово и самую первую букву в этом слове делает заглавной.

Прошу помощи

[Stilet]

Неправда:

uses    classes,
  SysUtils;
var t: TStringList;
  i:byte;
begin
t:=TStringList.Create;
t.DelimitedText:= 'Вася пришел домой с покупками';
for i:=0 to t.count-1 do write(copy(t[i],1,1));
readln;
end.

Все там работает как надо.

[Аватар]

А мне больше по душе чуть переделанный код, что evg_m предложил

  s1:='Вася пришел домой с покупками';
  s2:='';
  for i:=Length(s1) downto 2 do if s1[i-1]=' ' then s2:=s1[i]+s2;
  s2:=s1[1]+s2;

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

for i:=Length(s1) downto 2 do if (s1[i-1]=' ') and (s1[i]<>' ') then s2:=s1[i]+s2;

[raxp]

И, дружище, код то спецтегом выделяй, пример дурной подаешь таки

так я и не писал код, так получилось что кодом вышло

[artemavd]

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