Форум: "Начинающим";
Текущий архив: 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]> но это шуточный вариант, придуманный в студии. :)
Фух, я уж плохое подумал пока читал…
← →
{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.052 c
