Zitat von
alcaeus:
Delphi-Quellcode:
// Prüfung ob Float
if TryStrToFloat(s, float) then
ShowMessage('Ist ein Float')
else
ShowMessage('Ist kein Float');
Was ist denn wenn s=12 ist? Dann wird doch ein falsches Ergebnis ausgegeben oder? Die 12 kann ja in einen Realwert umgewandelt werden.
Ich würde den Code etwas anders aufbauen:
Delphi-Quellcode:
var float: double;
int: integer;
s: String;
begin
if TryStrToInt(s, int) // Prüfung ob Integer
then ShowMessage('Ist ein int')
else if TryStrToFloat(s, float) // Prüfung ob Float
then ShowMessage('Ist ein Float')
else ShowMessage('Ist kein Float und kein Int');
end;
Außerdem ist noch zuerwähnen das die Funktionen erst ab Delphi6 oder 7 dabei sind (weiß es jetzt nicht so genau).
Tschüß Markus