Delphi isNumber

Function TryStrToInt (const s: string; out Value: Integer): Boolean;

TryStrToInt zamienia łańcuch S, który reprezentuje liczbę całkowitą w notacji dziesiętnej lub szesnastkowej, na liczbę, która jest przypisana do wartości. Jeśli S nie reprezentuje poprawnej liczby, TryStrToInt zwraca false; w przeciwnym razie TryStrToInt zwraca true.

Aby przyjąć wartości dziesiętne, ale nie szesnastkowe w ciągu wejściowym, możesz użyć kodu w następujący sposób:

function TryDecimalStrToInt( const S: string; out Value: Integer): Boolean;
begin
   result := ( pos( '$', S ) = 0 ) and TryStrToInt( S, Value );
end;

Spróbuj tej funkcji StrToIntDef()

Z pomocy

Konwertuje łańcuch reprezentujący liczbę całkowitą (dziesiętną lub szesnastkową) na liczbę z domyślną wartością błędu.

Pascal

function StrToIntDef(const S: string; Default: Integer): Integer;

Edit

Właśnie sprawdzałem źródło TryStrToInt() funkcji w Delphi 2007. JeĹ " li Delphi 7 nie posiada tej funkcji, moĹźesz napisaÄ ‡ tak. To tylko dopracowany kod do da-soft odpowiedz

function TryStrToInt(const S: string; out Value: Integer): Boolean;
var
  E: Integer;
begin
  Val(S, Value, E);
  Result := E = 0;
end;

Dla starszych wersji Delphi z delphi 5 help przykład:

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);
  else
    Canvas.TextOut(10, 10, 'Value = ' + IntToStr(I));   
end;

W delphi 7 można skorzystać z procedury Val. Z pomocy:

Jednostka: System składnia Delphi: procedure Val(S; var V; var Code: Integer);

S jest wyrażeniem typu string; musi to być sekwencja znaków, które tworzą podpisaną liczbę rzeczywistą.

V jest zmienną typu całkowitego lub rzeczywistego. Jeśli V jest zmienną typu integer, to S musi tworzyć liczbę całkowitą.

Kod jest zmienną typu Integer.

Jeśli łańcuch jest Nieprawidłowy, indeks znaku jest przechowywany w Kod; w przeciwnym razie kod jest ustawiony na zero. Dla zakończonego znakiem null pozycja błędu zwracana w kodzie jest o jedną większą od rzeczywistego indeksu opartego na Odrze znaku błędu.

Użyj tej funkcji

function IsNumber(N : String) : Boolean;
var
I : Integer;
begin
Result := True;
if Trim(N) = '' then
 Exit(False);

if (Length(Trim(N)) > 1) and (Trim(N)[1] = '0') then
Exit(False);

for I := 1 to Length(N) do
begin
 if not (N[I] in ['0'..'9']) then
  begin
   Result := False;
   Break;
 end;
end;

End;

W niektórych językach separatory dziesiętne są różne (np. '."jest używany w języku angielskim i", " jest używany w języku rosyjskim). W tych przypadkach do konwersji ciągu znaków na liczbę rzeczywistą proponuje się następującą procedurę:

function TryStrToFloatMultylang(const S : String; out Value : Extended) : Boolean;
var
  dc : char;
begin
  Result := false;
  dc := DecimalSeparator;
  DecimalSeparator := '.';
  try
    Result := TryStrToFloat(S, Value);
  except
    DecimalSeparator := ',';
    Result := TryStrToFloat(S, Value);
  end;
  DecimalSeparator := dc;
end;

Update

Jak wspomniał @Pep TryStrToFloat catch wyjątki, ale zwraca wartość logiczną. Więc prawidłowy kod to:

function TryStrToFloatMultylang(const S : String; out Value : Extended) : Boolean;
var
  dc : char;
begin
  Result := false;
  dc := DecimalSeparator;
  DecimalSeparator := '.';
  Result := TryStrToFloat(S, Value);
  if not Result then begin
    DecimalSeparator := ',';
    Result := TryStrToFloat(S, Value);
  end;
  DecimalSeparator := dc;
end;

XE4 i nowsze:

for ch in s do
   TCharacter.IsNumber(ch);

Nie zapomnij:

uses System.Character    

Podczas korzystania z procedury

Val (s, i, iCode);

I ustaw wartość xd ....

Val ('xd', i, iCode)

W rezultacie otrzymujemy: 13

Standardowe warianty jednostek

function VarIsNumeric(v:Variant):Boolean