35
st : string;
n,i,nst,ind: integer;
begin
n:=0; // n сөздердің саны
ind:=0;
nst:=ComboBox1.ItemIndex; // таңдалған жолдың нөмірін анықтау
st:=ComboBox1.Items[nst]; // st –ға таңдалған жол меншіктеледі
for i:=1 to Length(st) do //жолдың барлық символдарын көру
case ind of
0 : if st[i]<>' ' then // егер символ кездессе
begin
ind:=1;
n:=n+1; // сөздердің саны 1-ге өседі
end;
1 : if st[i]=' ' then // егер бос орын кездессе
ind:=0;
end;
Label3.Caption:=IntToStr(n); // Label3-ке сөздердің санын шығару
Достарыңызбен бөлісу: 
