Форум: "Основная";
Текущий архив: 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.006 c