Форум: "Начинающим";
Текущий архив: 2007.06.03;
Скачать: [xml.tar.bz2];

Вниз

Функция проверки строки...   Найти похожие ветки 

← →
Strate ©   (2007-05-16 22:08) [0]

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

---

← →
Virgo_Style ©   (2007-05-16 22:40) [1]

TryStrTo...

---

← →
Anatoly Podgoretsky ©   (2007-05-16 23:03) [2]

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

---

← →
{RASkov} ©   (2007-05-16 23:40) [3]

> [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...., ;) но это шуточный вариант, придуманный в студии. :)

---

← →
Kolan ©   (2007-05-16 23:44) [4]

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

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

---

← →
{RASkov} ©   (2007-05-17 00:00) [5]

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

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

---

← →
Strate ©   (2007-05-17 00:39) [6]

Virgo_Style ©   (16.05.07 22:40) [1]

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

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

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.06.03;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.039 c