数値であるないかを判定する関数は？

解決

---

数値であるないかを判定する関数を
教えてください。

編集    削除

---

procedure TForm1.Button1Click(Sender: TObject);
    var
      Value: Integer;
    begin
      if TryStrToInt(Edit1.Text, Value) then
      begin
        Button1.Caption := IntToStr(Value);
      end else
      begin
        Button1.Caption := '整数には変換できない文字です'
      end;
    end;

編集    削除

---

Delphi5では、TryStrToInt関数は見つかりませんでした。
単純に考えれば、

if StrToIntDef(Edit1.Text, 1)<>StrToIntDef(Edit1.Text, 0) then

でできそうな気がします。

編集    削除

---

はじめまして。最近ちょくちょく利用（ROMですが）させてもらってました。
私の場合、try〜exceptを使います。

数字かどうかを判断したいってことは、
その変数はStringで宣言されているわけですよね？

  try
    数字変数 := StrToInt(比較したい文字列);
  except
    エラーの処理
  end;

ってかんじで、例外を利用してます。
反則技かもしれませんが、今のところこれで問題はないですね。

編集    削除

---

Delphi6でTryStrToInt関数を探したのですが見つかりませんでした
試しに実行してみたらコンパイルは通りました。
私も、StrtoIntDefが一番使いよいと思います。
しかし、質問では整数ではなく、数値と有ります
浮動小数点の時は、StrtoFloatを使うことになり例外処理が必要になってきます
TryStrToInt関数のようにヘルプに無くて浮動小数点に使える関数は無いでしょうか？

編集    削除

---

TryStrToIntの構文がどういうものかわからないので推測ですが、次のように関数を作っておけばいいと思います。

function TryStrToFloat(Text: String; var Value: float): boolean;
begin
  try
    value := StrToFloat(Text);
    Result := True;
  except
    Result := False;
  end;
end;

編集    削除

---

しらべてみました。

  Delphi6から追加された関数のようです。
ヘルプで確認したものの、載ってませんでした。
でも、Ctrl+Spaceの入力候補にはちゃんと載ります。
TryStrToIntのほか、Int64,Float,Date,DateTime用などたくさんあるようです。
定義されてるユニットは、SysUtilsです。
Ctrl+Shift+Spaceの宣言表示にも、ちゃんと載ってます。

  ただ、どれもやっぱりアンドキュメントみたいですけど(-_-;)

編集    削除

---

現在、にしのさんと同じような関数を作って使用しています。
やはり、例外処理が入りますよね
事前に例外の可能性（原因）が解っているのに、積極的に例外処理を使うのは
なぜか気が引けます。
その点は、あまり  こだわらなくても良いのでしょうか？

編集    削除

---

みなさん、ありがとうございました。

編集    削除

---

>TryStrToIntのほか、Int64,Float,Date,DateTime用などたくさんあるようです。
Delphi7ではヘルプに載っているようです。

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。