Prüfung auf Integer oder Real

[Markus K.]

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