| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Функция проверки строки...

Strate ©   (2007-05-16 22:08:00) 

...является ли таковая числом. Подскажите пожалуйста.

---

Strate   (2007-05-17 00:39:00) [1]

Virgo_Style ©   (16.05.07 22:40) [1]

О, спасибо. Имеено это и хотел.

{RASkov} ©   (16.05.07 23:40) [3]

Да, можно и самому написать, но в голову прочно засела IsNumeric, как сейчас оказалось из VisualBasic.

---

{RASkov}   (2007-05-17 00:00:00) [2]

> [4] Kolan ©   (16.05.07 23:44)

Но я думаю, что вполне рабочий, и быть может, даже устроит автора вопроса ;)

---

Kolan   (2007-05-16 23:44:00) [3]

> но это шуточный вариант, придуманный в студии. :)

Фух, я уж плохое подумал пока читал…

---

{RASkov}   (2007-05-16 23:40:00) [4]

> [0] Strate ©   (16.05.07 22:08)

Хех....
function CheckStrIsNumber(const S: String): Boolean;
var N, K: Integer; F: Boolean;
begin
 Result:=False;
 if S='' then Exit;
 if (S[1]='-') or (S[1]='+') then K:=2 else K:=1
 F:=False;
 for N := K to Length(S) do begin
  if (S[N]=DecimalSeparator) and not F then begin
   F:=True; Continue;
  end else if not (S[N] in ['0'..'9']) then Exit;
 end;
 Result:=True;
end;

var Stroka: String
.....
if CheckStrIsNumber(Stroka) then
  ShowMssage('Строка: '+Stroka+' - Является числом')
else
  ShowMssage('Строка: '+Stroka+' - НЕ является числом.')

Есть преимущество перед [1], так как может проверить БольшоЕ "число", больше чем Int64...., ;) но это шуточный вариант, придуманный в студии. :)

---

Anatoly Podgoretsky   (2007-05-16 23:03:00) [5]

Вопрос сложный и лежит за рамками программирование, можно лишь ответить на вопрос, можно ли преобразовать строку в число.

---

Virgo_Style   (2007-05-16 22:40:00) [6]

TryStrTo...

---

Наверх