как можно найти каждое третье слово в строке, чтоб записать их в 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