Funktion för att kolla om inmatning är av typen tal ?

Testa denna funktionen:

Function IsNumeric(s: String) : Boolean;
VAR
Code: Integer;
Value: Double;
BEGIN
val(s, Value, Code);
Result := (Code = 0)
END;

/Staffan

Oj! det var längesen man såg lite Pascal kod. Coolt!
Men, eftersom detta är ett VB.NET forum föreslår jag att du använder en funktion med samma namn som finns i .NET Fx, alltså:

Public Function IsNumeric(ByVal Expression As Object) As Boolean

typ

myRes = IsNumeric(Textbox1.Text)


allan

Rätta mig om jag har fel, men ställdes inte denna fråga från början i Delphiforumet?

Det har jag ochså för mig.

observera att:
<code>
IsNumeric("1,2.3")
</code>
ger TRUE ! i

Om det är i VB:Net och du har en textbox så kan du lyssna på keypressed eventet och ha följande kod under:
<code>
Dim txtBox As TextBox = CType(sender, TextBox)
If Char.IsDigit(e.KeyChar) Or Char.IsControl(e.KeyChar) Then
e.Handled = False
ElseIf e.KeyChar.Equals("."c) Then
If txtBox.Text.IndexOf(".") > 0 Then
MessageBox.Show("Only one dot is allowed.")
e.Handled = True
Else
e.Handled = False
End If

Else
MessageBox.Show("Only digits are allowed.")
e.Handled = True

End If
</code>
Nu kör jag decimaltal med . och har inget stöd för tusentalspunktering....