помогите!

← →
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" и дал такую ошибку.

> Ulugbek (19.06.02 09:49)

Все правильно, запусти прогу не из Дельфи

← →
Bakca (2002-06-19 10:18) [10]

Купить книгу "Delphi для улугбека" :)

Для Integer - посмотрите исходник StrToInt;
Для Float - посмотрите исходник StrToFloat;

Неужели тяжело посмотреть откуда берется Exception???

По моему все таки через 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;

помогите! Найти похожие ветки