работа по обработке строк

@ssstodol · Регистрация: 13.05.2009

Author24 — интернет-сервис помощи студентам

дана строка.подсчитать количество букв К в первом её слове.
Заранее, спасибо!

@demidrolll · 30.05.2009, 10:19

На форме Edit, Label и Button. Процедура для нажатой кнопки:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  x,i: integer;
  s: string;
begin
  x:=0;
  s:=Edit1.Text;
  while s[1]=' ' do
    delete(s,1,1);
  for i:= 1 to pos(' ',s)-1 do
    if s[i]='K' then  // K - àíãëèéñêàÿ
      inc(x);
  Label1.Caption:=IntToStr(x);
end;

@ssstodol · 30.05.2009, 11:00 **[ТС]**

большое спасибо.

@ssstodol 0 / 0 / 0 Регистрация: 13.05.2009 Сообщений: 35
		1
	работа по обработке строк 30.05.2009, 09:23. Показов 1195. Ответов 2 Метки нет (Все метки) дана строка.подсчитать количество букв К в первом её слове. Заранее, спасибо! 0

@ssstodol 0 / 0 / 0 Регистрация: 13.05.2009 Сообщений: 35
	30.05.2009, 11:00 [ТС]	3
	большое спасибо. 0

работа по обработке строк

Решение