Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.06.03;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.05 c
3-1173705345
Thely
2007-03-12 16:15
2007.06.03
Интеграция FIBPlus и FastReport 3.0?


2-1178938776
ArchValentin
2007-05-12 06:59
2007.06.03
Работа с базой в DBF


2-1178975814
Calibr
2007-05-12 17:16
2007.06.03
Распадание картинки


2-1178972587
SKIPtr
2007-05-12 16:23
2007.06.03
Как запустить процедуру


15-1178362347
ArtemESC
2007-05-05 14:52
2007.06.03
Шахматы...