Wie kann ich Strings und Integer erkennen?

[Natalia]

Hallo Bene,

Wenn du Char-Variable prüfen möchtest, kannst du folgende funktion verwenden:

Code:

function isInteger(c: Char) : Boolean;
begin
  Result = c in ['0'..'9'];
end;

Beispiel:
var x: Char;
.....
if isInteger(x) then ...

Wenn du Strings prüfst:

Code:

function IsInteger(value : String) Boolean;
begin
  Result:=true;
    try
      StrToInt(value)
    except
      Result:=false;
    end;
end;

Beispiel:
if not(IsInteger(Edit1.Text)) then ...


Natalia