Взять рандомное предложение из текста

[zver777]

Здравствуйте.
Вот такая задачка возникал передо мной. Не могу никак додуматься.

Есть текст(text:string) с предложениями. Концом предложения является точка. Надо скопировать в S рандомное предложение из этого текста.

[W0LF]

Алгоритм таков...
Загружаете все в TStringList... Используете DelimitedText с Delimiter := '.'. Затем через Random(TStringList.Count) получаете число и выводите предложение под этим номером - TStringList[Random(TStringList.Count)]...
P.S.: Вместо TStringList - имя переменной данного типа... Вроде бы задание не тяжелое...

[zver777]

Спасибо. Вопрос решён.

[Kotofff]

Как пример можно использовать вот эту функцию вырезания из строки нужной части, учитывая что части разделяются символом в константе Delimiter

{
  Получение N-ой части (слова) из строки.  OrdN - номер нужной части (слова)
  Части (слова) в строке разделяются символом содержащимся в Delimiter
}
function GetPartNunFromString(OrdN: Integer; const S: string): string;
const
  Delimiter = ' '; // наш разделитель
var
  I,J,N: Integer;
  L: LongWord;
  P: PChar;
  A: Boolean;
begin
  L := Length(S);
  P := Pointer(S);
  A := False;
  N := 1;
  for I := 1 to L do
  begin
    if P^ <> Delimiter then
    begin
      if not A then
      begin
        if N = OrdN then
        begin
          N := L+1;
          Inc(P);
          for J := I+1 to L do
          begin
            if P^ = Delimiter then
            begin
              N := J;
              Break;
            end;
            Inc(P);
          end;
          Result := Copy(S,I,N-I);
          Exit;
        end;
        A := True;
        Inc(N);
      end;
    end else
      A := False;
    Inc(P);
  end;
  Result := '';
end;

Надеюсь далее ты сам ...

[W0LF]

Нет, оказывается задание не такое уж и легкое, столкнулся с проблемой пунктуации... Когда точки стоят в сокращениях. Во общем, мутное дело)