Вот, почти получилось, только он берет с 4ого слова:
Код:
sn:='';
L := TStringList.Create;
L.Text := StringReplace(S,' ',#13#10,[rfReplaceAll]);
For i:= 0 to L.Count-1 do
if (i mod 3 = 0) and (i<>0) then
sn:= sn + ' ' + L[i];
Edit1.Text:=sn;
например, если текст "считать текст из файла на MEMO больше 10 слов каждое 3е слово записать в другой файл", то получается " файла больше каждое записать файл"
он походу в TString первое слово просто не записывает
как можно исправить?
сори за даблпостинг