fakat . ! , ? bunlarıda kelime olarak alıyor bunları nasıl ayırırım bide listboxa aktarmam gerekiyor her kelimeyi
yardımcı olun delphiyle aram pek yoktur.
şimdiden Teşekkürler
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var
SL: TStringList;
begin
SL:= TStringList.Create;
try
SL.Delimiter := ' ';
SL.DelimitedText := Trim(Edit1.Text);
ShowMessage(Format('Kelime sayısı: %d', [SL.Count]));
finally
SL.Free;
end;
end;