Text (Strings) Zeilenumbrüche einfügen aufgrund von Satzzeichen.!?

[Blup]

Ein Objekt sollte möglichst immer auf der Ebene freigegeben werden, auf der es auch erzeugt wurde.
Deshalb halte ich das Erzeugen einer TStringList als Rückgabewert hier nicht für sinnvoll.

Man kann den Zähler auch gegen Null zählen lassen und spart so eine Variable.

Delphi-Quellcode:

function SplitText(AText: string): string;
const
  CRLF = #13#10;
var
  C: Char;
  Counter: Integer;
begin
  Result := '';
  Counter := 2;
  for C in AText do
  begin
    Result := Result + C;
    if CharInSet(C, ['!', '.', '?']) then
      Dec(Counter);
    
    if Counter = 0 then
    begin
      Result := Result + CRLF;
      Counter := 3;
    end;
  end;
end;

[Neutral General]

Mit dem Runterzählen hast du Recht. Das ist auf jeden Fall besser/einfacher.
Das Erzeugen einer Stringlist finde ich nicht problematisch. Bei jedem .Create ist es quasi das gleiche.
Es ist halt eine Art überladener constructor für TStringList. Aber ist Geschmackssache.

Ein Hinweis aber: Es gibt die Konstante sLinebreak, die sogar platformunabhängig ist und da brauchst du keine eigene CRLF-Konstante.