[Igor_Petrenko]

Всем доброй ночи
Помогите решить такое вот задание:

Сформировать текстовый файл, в который записать все предложения исходного текста, содержащие кому, а также нужно сформировать список, содержащий длину каждого предложения исходного текста.


Может что-то из этого кода можно "выковырять"?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

procedure TForm1.Button1Click(Sender: TObject); const   //Разделители предложений.   Df = ['.', '!', '?'];   //Разделители слов.   Da = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13]; var   S : String;   //P1 - позиция начала предложения. CntW - счётчик слов в предложении.   i, CntW, P1, Len : Integer; begin   Memo2.Clear;       //Исходный текст.   S := Memo1.Text;   Len := Length(S);      //Обработка текста.   P1 := 0;   CntW := 0;   for i := 1 to Len do begin     //Отслеживаем начало предложения.     if (i = 1) or (S[i - 1] in Df) then P1 := i;     //Если символ не является разделителем слова.     if not (S[i] in Da) then begin;       //Отслеживаем конец слова и подсчитываем слово.       if (i = Len) or (S[i + 1] in Da) then Inc(CntW);     end;     //Отслеживаем конец предложения.     if (i = Len) or (S[i] in Df) then begin       //Если количество слов >= 3, то добавляем это предложение       //в Мемо результата.       if CntW >= 2 then Memo2.Lines.Add( Copy(S, P1, i - P1 + 1) );       //Сброс счётчика слов.       CntW := 0;     end;   end; end;

[Страдалецъ]

Сформировать текстовый файл, в который записать все предложения исходного текста, содержащие кому

И как ваш вопрос понимать изволите?
Это слово в предложении? Это адресат в некоем формате? Это просто запятая (по английски). О чем вообще речь идет?

[Igor_Petrenko]

Сообщение от Страдалецъ

И как ваш вопрос понимать изволите?
Это слово в предложении? Это адресат в некоем формате? Это просто запятая (по английски). О чем вообще речь идет?

Спасибо за ответ. Сорри, за неясность. Это обычная запятая в преложении (,).

[Страдалецъ]

Тогда все проще некуда. Используйте клас TStringList, он содержит методы которые легко позволяют решить эту задачу:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

Var   SL: TStringList;   i: Integer; begin  SL := TStringList.Create;  SL.StrictDelimiter := True;  SL.Delimiter := ',';  SL.DelimitedText := 'Это текст, в котором есть запятая, точка, вопросительный знак и прочее?';  SL.SaveToFile('CommaFile.txt');  for i := 0 to SL.Count - 1  do SL.Strings[i] := SL.Strings[i] + ' - ' + IntToStr(Length(SL.Strings[i]));  ShowMessage(SL.Text); end;