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
Delphi Cümle Düzenleme
Forum kuralları
Bu forum sadece yapacağınız işle alakalı doğru bileşeni bulmak içindir. Şöyle bir şey yapmam lazım, hangi bileşeni kullanıyım diyorsanız, doğru yerdesiniz.
Bu forum sadece yapacağınız işle alakalı doğru bileşeni bulmak içindir. Şöyle bir şey yapmam lazım, hangi bileşeni kullanıyım diyorsanız, doğru yerdesiniz.
Re: Delphi Cümle Düzenleme
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;