Einzelnen Beitrag anzeigen

Benutzerbild von littleDave
littleDave

Registriert seit: 27. Apr 2006
Ort: München
556 Beiträge
 
Delphi 7 Professional
 
#2

Re: IsNumeric / IsAlpha / IsAlphaNumeric

  Alt 3. Nov 2008, 19:28
Also für IsNumeric hab ich das was:
Delphi-Quellcode:
{$Warnings off}
function IsInteger(s: string): boolean;
var i, e: integer;
begin
  Val(s, i, e);
  result := e = 0;
end;
{$Warnings on}
Die Warnings sind nur dafür da, damit der Compiler nicht meckert, dass i nicht verwendet wird
Jabber: littleDave@jabber.org
in case of 1 is 0 do external raise while in public class of object array else repeat until 1 is 0
  Mit Zitat antworten Zitat