Topic: количество пробелов
вот рабочий скрипт
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
s:string;
i,k:integer;
begin
k:=0;
s:=Form1.Memo1.Text;
for i:=1 to length(s) do
if s[i]= ' ' then
inc(k);
if k>0 then
ShowMessage('Кол-во пробелов'+IntToStr(k))
else
ShowMessage('В строке пробелов нет');
end;
а есть-ли более простой вариант?