Delphi - операции со строкой

[Sianessa]

Помогите найти ошибку!

Задача:
Дана текстовая строка. Написать подпрограммы, выполняющие следующие действия:
* Подсчет количества слов в строке
* Подсчет количества цифр в строке

В общем ошибка, не правильно считает, всегда выдаёт единицу... Помогите!
Исходник:

procedure TForm1.Button1Click(Sender: TObject);
Var
S : string ;
N: byte ;
begin
N := 0;
S := Edit1.Text ;
if  Pos(' ', S) > 0 then
Begin
N := N + 1 ;
end;
Edit2.Text:=IntToStr(N) ;
end;
procedure TForm1.Button2Click(Sender: TObject);
Var
S : string ;
N: byte ;
begin
N := 0;
S := Edit1.Text ;
if  Pos('1', S) or Pos('2', S) or Pos('3', S)or Pos('4', S) or Pos('5', S) or Pos('6', S) or Pos('7', S) or Pos('8', S) or Pos('9', S) or Pos('0', S)> 0 then
Begin
N := N + 1 ;
end;

Edit3.Text:=IntToStr(N) ;

end;

[Sazary]

procedure TForm1.Button1Click(Sender: TObject);
Var
S : string ;
N: byte ;
begin
N := 0;
S := Edit1.Text ;
if  Pos(' ', S) > 0 then
Begin
N := N + 1 ;
end;
Edit2.Text:=IntToStr(N) ;
end;

Вы ищете единственный пробел. Естественно, N всегда будет = 1.

Вот:

procedure TForm1.Button1Click(Sender: TObject);
var s : string;
len,i,kolSlov,kolCifr : integer;
begin
kolSlov := 0;
kolCifr := 0;
s := Edit1.Text;
i := 1;
len := length(s);
while i<=len do
 begin
 while (s[i]=' ') and (i<=len) do inc(i);
 while (s[i]<>' ') and (i<=len) do
  begin
  if (s[i]>='0') and (s[i]<='9') then inc(kolCifr);
  inc(i);
  end;
  inc(kolSlov);

 end;
ShowMessage('Количество слов: '+IntToStr(kolSlov)+#10#13+'Количество цифр: '+IntToStr(kolCifr));

end;

[alex_fcsm]

procedure TForm1.Button1Click(Sender: TObject);

function CountStr(s:string):integer;
var   i:integer;
      sub:string;
begin
i:=0;result:=0;
repeat
inc(i);
if (s[i] in Delim)and(sub<>'')
              then begin
                   inc(result);
                   sub:='';
                   end
else if not(s[i] in Delim) then sub:=sub+s[i];
until i=length(s);
inc(result);
end;

function CountDig(s:string):integer;
var   i:integer;
      sub:string;
begin
i:=0;result:=0;
repeat
inc(i);
if s[i] in ['0'..'9'] then inc(result);
until i=length(s);
end;

begin
ShowMessage(IntTostr(CountStr(Edit1.Text)));
ShowMessage(IntTostr(CountDig(Edit1.Text)));
end;

Все можно делать в одной функции, но раз нужно две....

[Sianessa]

Sazary, большое спасибо ^_^

[Sianessa]

Ано... не могли бы вы ещё посоветовать, как вот это реализовать:

* Определение десятичного числа, которому соответствует строка, если она представляет запись
этого числа в шестнадцатеричной системе
* Проверку соответствия содержимого строки правилам записи идентификаторов языков
программирования.

Хотя бы алгоритм... А то соображений нет никаких =__=

[Sazary]

* Определение десятичного числа, которому соответствует строка, если она представляет запись
этого числа в шестнадцатеричной системе

Ну это проверяете каждый символ, является ли он шестнадцатиричной цифрой. Ну и если все верно, то переводите число из 16-ричной в 10-тичную систему (здесь уже подобное решалось).

* Проверку соответствия содержимого строки правилам записи идентификаторов языков
программирования.

А какие правила-то?

[IT-man]

в качестве имени переменной можно использовать последовательность лат. букв
и некоторых спецсимволов.первым символом в имени должна быть буква и в
имени не должно быть пробелов!

по крайней мере в делфе так ну еще чтобы служебным словом не являлась
Резюме: 1 - проверка первого символа
2 - поиск пробела
3 - проверка присутствия русских букв и недопустимых символов и будет вам счастье

вот вам из 16 в 10

procedure TForm1.Button3Click(Sender: TObject);
var
  d:integer;
  s:string;
begin
  s:=edit5.Text;
  d:= StrToInt('$' + s);
  edit6.Text:=intTostr(d);

end;

[Sianessa]

Sazary, понятно, спасибо, попробую...
А я не знаю какие правила, в задаче больше ничего не сказано...

[Sazary]

Сообщение от Sianessa

А я не знаю какие правила, в задаче больше ничего не сказано...

Скорее всего, это то, что описал IT-man.

А если имеются в виду какие-нибудь правила, вроде Венгерской нотации, то это уже отдельный разговор. Т.к. совсем уж общепринятых правил нет.

[IT-man]

sazary +1 например в С# и 1С названия переменных можно писать по-русски