Форум: "Основная";
Текущий архив: 2002.07.01;
Скачать: [xml.tar.bz2];
Внизпомогите! Найти похожие ветки
← →
Ulugbek (2002-06-19 08:25) [0]Привет мастерам!
Мастера помогит, как узнать значение цифровое или текстовое в TEdit.
Я с этим вешшем сталкивалься в VB.
VB это было так:
isnumberic(S)
если значение цифровое то возврашал True иначе False.
В Delphi как это сделать.
Помогите.
← →
MBo (2002-06-19 08:27) [1]try
i:=strtoint(edit1.text);
result:=true
except
result:=false
end;
или Val и анализ Code
← →
Ulugbek (2002-06-19 08:30) [2]
> MBo ©
не поняль все который вы потсказали писать в код?
← →
MBo (2002-06-19 08:43) [3]function isintegernumber(s:string):Boolean;
begin
try
strtoint(s);
result:=true
except
result:=false
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if isintegernumber(edit1.text) then caption:="yes"
else caption:="no"
end;
← →
MBo (2002-06-19 08:55) [4]еще один вариант - и для целых, и для вещественных чисел
function isnumber(s:string):Boolean;
var
code:integer;
x:double;
begin
val(s,x,code);
result:=Code=0;
end;
← →
Ulugbek (2002-06-19 09:37) [5]
> MBo © (19.06.02 08:55)
Я сделал так ка Вы сказали но программа говорить
[Error] RepairResult.pas(64): Unsatisfied forward or external declaration: "TfrmRepairResult.isintegernumber"
Как это исправить надо.
← →
MBo (2002-06-19 09:40) [6]так, как я написал - функция НЕ ЯВЛЯЕТСЯ методом формы
← →
Ulugbek (2002-06-19 09:44) [7]
> MBo © (19.06.02 09:40)
Я написал функция в форму , после этого говорить что переменная не определена.
Что делать
← →
Ulugbek (2002-06-19 09:49) [8]я нашел эту ошибку, но дает после этого другую. После захода в функцию говорить что значение которую я дал не "Is not numeric value". Я ввел как тестовы вариант букву "s" и дал такую ошибку.
← →
Lord Warlock (2002-06-19 09:53) [9]
> Ulugbek (19.06.02 09:49)
Все правильно, запусти прогу не из Дельфи
← →
Bakca (2002-06-19 10:18) [10]Купить книгу "Delphi для улугбека" :)
← →
MVova (2002-06-19 11:30) [11]Для Integer - посмотрите исходник StrToInt;
Для Float - посмотрите исходник StrToFloat;
Неужели тяжело посмотреть откуда берется Exception???
← →
Севостьянов Игорь (2002-06-19 13:03) [12]По моему все таки через Val проще и надежней как писал MBo © (19.06.02 08:55)
function IsNumeric(S: string): Boolean;
var
Code: Integer;
V: Comp;
begin
Val(S, V, Code);
Result := Code = 0;
end;
procedure TfrmRepairResult.Button1Click(Sender: TObject);
begin
if IsNumeric(Edit1.Text) then
ShowMessage("Is Numeric")
else
ShowMessage("Is Not Numeric");
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.07.01;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.005 c