StrToInt bei Zahl- und Texteinträgen

[khalilazzz]

du kannst mit try except probbiere.....

Delphi-Quellcode:

Function DeineApplikation.Iszahl(wert:string):boolean
var
 I:integer
begin
  Iszahl:=true;
  try
    I:=StrtoInt(wert);
  except
   Iszahl:=false
  end;
end;