[Fazotron]

как можно найти каждое третье слово в строке, чтоб записать их в edit?

Код:

Var s:string;
begin
s:='ололо трололо хехехе пффф ыыы";
Edit1.Text:= ????
end;

т.е. тут получается 3е и 5ое слово. как это можно реализовать?


может быть, как-то в этом направлении:

Код:

n:=0;
sn:='';
for i :=0  to Length(s) do
if s[i]=' ' then
inc(n);
if n mod 3 = 0 then
sn:= sn + ????????
edit1.Text:=sn;

и не забываем о тэгах, а то я карaю несчадно
Aristarh Dark