VPF::Как узнать сколько символов в строке?

dikiy

Дата 9.11.2006, 14:47 (ссылка)

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

Загрузка ...

Шустрый

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

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

Есть переменная типа string в ней идут цифры разделенные запятой надо узнать сколько запятых в этой строке. Подскажите как.

Matematik

Дата 9.11.2006, 14:50 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код


k:=0;
for j:=1 to Length(Str) do if str[j]=',' then Inc(K);
k-кол-во

dikiy

Дата 9.11.2006, 14:55 (ссылка)

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

Загрузка ...

Шустрый

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

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

а функции никакой нет?
И еще вопрос а можно ли узнать цифра ли содержится в переменной или другой какой-нибудь символ?

Matematik

Дата 9.11.2006, 15:00 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(dikiy @ 9.11.2006, 14:55

)

а функции никакой нет?

хз, самому быстрее написать, чем искать

Цитата(dikiy @ 9.11.2006, 14:55

)

можно ли узнать цифра ли содержится в переменной или другой какой-нибудь символ

строка проверяется TryStrToInt или StrToIntDef
символ if Str[1] in ['0'..'9'] then

Это сообщение отредактировал(а) Matematik - 9.11.2006, 15:03

Rodman

Дата 9.11.2006, 15:01 (ссылка)

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

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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

dikiy, юзай TryStrToInt и что то подобное

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

CRM с функцией АвтоОбзвона

Лотереи мира

Alexeis

Дата 9.11.2006, 15:09 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Цитата(Rodman @ 9.11.2006, 15:01

)

dikiy, юзай TryStrToInt и что то подобное

Val

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

SlaUr

Дата 10.11.2006, 14:20 (ссылка)

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

Загрузка ...

Опытный

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

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

Можно использовать готовый модуль

тогда кол-во запятых можно узнать так :

Код


var St1:string (* сюда занести строку*);i1:integer;


i1:=cNF(St1,',')-1 ;

А перебрать все поля разделенные запятыми и узнать число ли это так:

Код


var i1,i2,i3:integer;St1,st2:string;

for i1:=1 to cNF (St1,',') do 

   begin
      St2:=cNFi(i1,st1,',');
      val (st2,i2,i3); (*если преобраз не правильное в i3 запишется не 0
                                (число записывается в i2) *)
      if i3<>0 then ShowMessage(St2+' Не число!');
  end;

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