Boşluk bulma

[Ademkoysuren]

bir cümlede kaç tane boşluk olduğunu nasıl bulurum

[superco]

S.A.

Kod: Tümünü seç

var
cumle:String;
d:Integer;
say:Integer;
begin
say:=0;
for d:=1 to Length(cumle) do
  begin
    if a[d]=' ' then
      say:=say+1;
  end;

İşine yarar mı?

[true_false]

Kod: Tümünü seç

var
cumle:string;
a,say:integer;
begin
say :=0;
 cumle:= Trim(Edit1.Text);
for a:=1 to length(cumle) do
   begin
   if cumle[a] = ' ' then
    say := say+1
   end;
 ShowMessage('cumledeki boşluk sayısı= '+IntToStr(say));
end;