Delphi Cümle Düzenleme

[Kvurgun]

Merhaba hocalarım örnek olarak

"....... ..... ..... bugün hava oldukça güzel. ama akşama serinleyecekmiş..... öyle söyledi haberler....."

Metnini

"Bugün hava oldukça güzel. Ama akşama serinleyecekmiş. Öyle söyledi haberler. "

Şekline çevirmek için nasıl bir yol izlemem gerekiyor yardımcı olursanız sevinirim

[mrmarman]

Kod: Tümünü seç

Var
  strYazi : String;
  iSay    : Integer;
begin
  iSay := 0;
  strYazi := '....... ..... ..... bugün hava oldukça güzel. ama akşama serinleyecekmiş..... öyle söyledi haberler.....';
  while Pos(' .', strYazi) > 0
    do strYazi := StringReplace( strYazi, ' .', '.', [rfReplaceAll]);
  while Pos('. ', strYazi) > 0
    do strYazi := StringReplace( strYazi, '. ', '.', [rfReplaceAll]);
  while Pos('..', strYazi) > 0
    do strYazi := StringReplace( strYazi, '..', '.', [rfReplaceAll]);
  while Pos('.', strYazi) = 1
    do system.Delete(strYazi, 1, 1);

  while Pos('.', strYazi) > 0 do
  begin
    inc(iSay);
    system.Delete(strYazi, 1, Pos('.', strYazi));
  end;
  ShowMessageFmt('Cümle Sayısı = %d', [ iSay ]);
end;

Yapılan işlem adımlarını okuyabilirsin değil mi ? Önceki mesajımda yazdıklarım ile benzer.