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

[Neutral General]

Kleine Verbesserungsvorschläge für Jumpys Code, aber grundsätzlich ist sein Ansatz die beste Variante (die mir grad einfällt)

Delphi-Quellcode:

function SplitText(AText: String): TStrings;
var i: Integer;
    line: String;
    specialCharCount: Integer;
begin
  Result := TStringList.Create;

  line := '';
  specialCharCount := 2;
  for i:= 1 to Length(AText) do
  begin
    line := line + AText[i];
    if CharInSet(AText[i], ['!', '.', '?']) then
      dec(specialCharCount);
    
    if (specialCharCount = 0) then
    begin
      Result.Add(line);
      line := '';
      specialCharCount := 3; 
    end;
  end;

  // Rest als eine Zeile hinzufügen
  if (line <> '') then
    Result.Add(line);
end;

Edit: Runterzählen von "specialCharCount" erspart einem eine Max Variable. Danke an Blup