Как узнать в Edit1.Text у меня информация Integer

[Shaitan63]

Помогите пожалусто придумать условие которое бы помогло узновать какого типа у меня информация(Integer или String).

[Квэнди]

strtointdef +F1

[ZhekON]

strtointdef +F1 незнаю шо ето значит но есть тож вариант :
в таблице кодов символов есть коды чисел и вот можно взять ото всех символов в строке коды и проверить входят ли они в те коды чисел которые обозначают цыфры а если хоть одно не входит значит ето тип string

пример:
str:=form1.edit1.text;
for i:=1 to length(str) do
if (ord(str[i])>=30) and (ord(str[i])<=39) then integer //30..39 коди чисел в таблице кодировки символов
else string;
но как я знаю разние кодировки используются такшо тут уже нужно будет подумать... и фсёже.. ето токо вариант =)

[Квэнди]

кнопку F1 у себя на клавиатуре специально выломали?

Unit
SysUtils

Syntax


[Delphi] function StrToIntDef(const S: string; Default: Integer): Integer;


Description
StrToIntDef converts the string S, which represents an integer-type number in either decimal or hexadecimal notation, into a number. If S does not represent a valid number, StrToIntDef returns Default.

[Карась]

Сообщение от ZhekON

strtointdef +F1 незнаю шо ето значит но есть тож вариант :
в таблице кодов символов есть коды чисел и вот можно взять ото всех символов в строке коды и проверить входят ли они в те коды чисел которые обозначают цыфры а если хоть одно не входит значит ето тип string

пример:
str:=form1.edit1.text;
for i:=1 to length(str) do
if (ord(str[i])>=30) and (ord(str[i])<=39) then integer //30..39 коди чисел в таблице кодировки символов
else string;
но как я знаю разние кодировки используются такшо тут уже нужно будет подумать... и фсёже.. ето токо вариант =)

Ну и к какому типу относится значение "1" в поле?
Это можно рассценивать и как стринг и как интеджер.

Тоесть существуют значения которые могут быть определенны как интеджер так и стринг.

А что вообще хочет автор? Нужна проверка коректности ввода?

[НЕ_АЙС]

Карась, не мути воду в водоеме
Автор хочет знать является ли Edit1.Text числом или нет.
Есть ещё функция Val, которая работает как для целочисленных так и для вещественных чисел.
Вот пример работы:

uses Dialogs;
var

I, Code: Integer;
begin
{ Get text from TEdit control }
Val(Edit1.Text, I, Code);
{ Error during conversion to integer? }
if Code <> 0 then
MessageDlg('Error at position: ' + IntToStr(Code), mtWarning, [mbOk], 0, mbOk);
else
Canvas.TextOut(10, 10, 'Value = ' + IntToStr(I));
end;

[DOLBY]

Ну неужели это так сложно? Раз уж автор ленится почитать справку, то можно сделать всё вручную:

var fl:boolean;
    i:integer;
    str:string;
begin
 str:=Edit1.Text;
 fl:=true;
 for i:=1 to length(str) do
  if not(str[i] in ['0'..'9']) then
   fl:=false;

 if fl then {integer}
  else {string}
end;

[mihali4]

Тогда уж до кучи :

var i:integer;   
begin   
try
i:=Edit1.Text;
ShowMessage('Молодец, хороший мальчик');   
except
ShowMessage('Ты что ввел в Edit1, скотина?');
end;
end;

[pu4koff]

ну и на всякий

var
  i: integer;
begin
  if TryStrToInt(Edit1.Text,i) then caption := 'true'
  else caption := 'false';

[Shaitan63]

Большое спасибо за помощ!
А немогли бы помочь ещё вот с чем?
Есть база Access нужно отсортировать её по алфовиту и переносить положение пользователя в тот участок бызы которое отображено в edit.