VPF::Не считает количество символов в строке

JuKa

Дата 24.12.2007, 22:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 17.12.2007

Репутация: нет
Всего: нет

Не считает количество символов в строке, выдает значение р равное 0

Код


  
procedure TForm1.Button1Click(Sender: TObject);   
const  
s=' ';   
var  
st:string[50];   
p,i:integer;   
begin  
st:=Form1.Edit1.Text;   
p:=0;   
For i:=1 to length(st) do  
if st[i]=s then  
if st[i+1]='b' then  
p:=p+1;   
Form1.Edit2.Text:=IntToStr(p);   
begin  
  
end;   
  
end;   
end.

Qu1nt

Дата 24.12.2007, 22:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 22
Всего: 50

Не совсем ясна задача. Но, например, если

Код


Edit1.Text := ' b b b';

то "алгоритм" вернет 3.

ivan219

Дата 25.12.2007, 09:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 5
Всего: 12

А так:

Код


procedure TForm1.Button1Click(Sender: TObject);   
var  
   St: String[50];  // Если небыло так задуманно то [50] можно удолить! 
   P, I: Integer;   
begin  
 St := Edit1.Text;   
 P := 0;   
 For I := 1 to length(St) - 1 do
  if St[I] = ' ' then  
   if St[I + 1] = 'b' then Inc(P);   
 Edit2.Text := IntToStr(P);   
end;

Это сообщение отредактировал(а) ivan219 - 25.12.2007, 09:20

--------------------

Мой первый сайт и моя первая программа!!!!!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »