Главная страница
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.48 MB
Время: 0.039 c
3-1173862302
DSKalugin
2007-03-14 11:51
2007.06.03
как в Delphi использовать VBA-функцию Access?


15-1178351044
SerJaNT
2007-05-05 11:44
2007.06.03
Delphi for PHP


15-1178277548
Алхимик
2007-05-04 15:19
2007.06.03
StarWars


2-1179071022
Kostafey
2007-05-13 19:43
2007.06.03
SQL Query Analyzer vs ADO: различия в интерпритации даты


2-1179129401
Leshas0
2007-05-14 11:56
2007.06.03
поиск подстроки POS