Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.01;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.01 c
3-852
Chad
2002-06-06 12:28
2002.07.01
наследник TTable


14-1182
малой
2002-05-31 12:55
2002.07.01
библиотека компонентов RXLib


1-1101
koks
2002-06-19 13:57
2002.07.01
переименовать модуль :((


7-1214
Фредди
2002-03-30 20:56
2002.07.01
Блокировать клавиатуру


1-1090
Ulugbek
2002-06-19 08:25
2002.07.01
помогите!