主页 / 问题 / 1220283
Accepted
Татьяна
Asked:2021-12-18 00:06:12 +0000 UTC2021-12-18 00:06:12 +0000 UTC

将文本分成段落

  • 772

Memo1 中有文本。文本打印在一行中。文本示例：

Все люди любят мечтать. Особенно в детстве. И это очень хорошо. История заветной детской мечты. ставшей явью. Далее в обзоре.

如何将文本分成每行三个句子并在它们之间放置一个段落？这样 Memo1.Text 中的输出将是结果：

Все люди любят мечтать. Особенно в детстве. И это очень хорошо.

История заветной детской мечты. ставшей явью. Далее в обзоре.

到目前为止，我已经想出了如何将它分成单独的句子。它会是这样的：

var i:integer;
    s:string;
begin
s:=Memo1.Text;
i:=2;
while i<length(s) do
if(s[i]=' ')and(s[i-1] in ['.'])then
 begin
  insert(#13#10,s,i+1);
  i:=i+1;
 end
else i:=i+1;
Memo1.Text:=s
end;
delphi

1 个回答

  1. Best Answer
    var
  s, ss: string;
  sl: TStringList;
  i: integer;
begin
  s := 'Все люди любят мечтать. Особенно в детстве. И это очень хорошо. История заветной детской мечты. ставшей явью. Далее в обзоре. qq. pp';
  sl := TStringList.Create;
  sl.Delimiter := '.';
  sl.StrictDelimiter := true;
  sl.DelimitedText := s;
  ss := '';
  for i := 0 to sl.Count - 1 do begin
    if Length(sl[i]) > 0 then
      ss := ss + sl[i] + '.';
    if i mod 3 = 2 then begin
      Memo1.Lines.Add(ss);
      Memo1.Lines.Add('');
      ss := '';
    end;
  end;
  if sl.Count mod 3 <> 0 then
      Memo1.Lines.Add(ss);
  sl.Free;
    • 1

相关问题