Zum Prüfen
Delphi-Quellcode:
{ Prüft ob String ein Integerwert ist }
function IsValidInteger(S: String): Boolean;
var
I, Code: Integer;
begin
Val(S, I, Code);
Result := Code = 0;
end;
{ Prüft ob String ein Currencywert ist }
function IsValidCurrency(S: String): Boolean;
var
C: Currency;
begin
Result := TextToFloat(PChar(S), C, fvCurrency);
end;
{ Prüft ob String ein Extendedwert ist }
function IsValidExtended(S: String): Boolean;
var
E: Extended;
begin
Result := TextToFloat(PChar(S), E, fvExtended);
end;
Ok, ich sehe du brauchst, LongInt, LingWord und Double. LongInt kannst du mit der oberen Funktion testen, für Single kannst du dir mit TryStrToFloat eine Funktion erstellen.
Delphi-Quellcode:
function TryStrToFloat(const S: string; out Value: Double): Boolean; overload;
//Ungeprüft
{ Prüft ob String ein Double ist }
function IsValidDouble(S: String): Boolean;
var
Value: Double ;
begin
Result := TryStrToFloat(S, Value);
end;