Isnumeric - Haster

Er det en variabel du snakker om eller et edit-felt eller hvad?

Hvis det er et editfelt, kan du bruge StrToIntDef(Edit1.Text, 0);

Så får du det hvertfald lavet til et tal, og hvis det ikke er et tal, bliver det 0, altså det du skrev efter kommaet.

/SpEeDy

Jeg skal teste om det er et tal, hvis det er - skal jeg indsætte det i en database ellers skal der komme en fejlmeddelse.

Tjah.. det kunne laves sådan her:


function IsNum(Value:String):Boolean;
var
  Code: Integer;
  Tmp: Integer;
begin
  Val(Value,tmp,Code);
  Result:=Code=0;
end;

Hej

Jeg kender ikke til at der findes en så funktion i Delphi men du kan lave en selv :

function IsNumeric(v : Variant) : Boolean;
var
  i : Integer;
  s : String;
begin
  i:= VarType(V) and varTypeMask;
  result := (i >= varSmallint) and (i<=varCurrency);

  if not result then
    result := i= varByte;

  if not result then
  begin
    if i= varString then
    s:=v;
    result := true;
    try
      StrToFloat(s);
    except
      result := false;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsNumeric(\'5,444\') then
    Caption := \'\';
end;


Jens B

dj  > Din løsning virker ikke for di du ikke kan skrive IsNum(5.55) eller IsNum(5). Til det formål er du nødtil at bruge en variant !

Jens B

du kan også kalde :

  if IsNumeric(5.444) then
    Caption := \'\';

  if IsNumeric(5) then
    Caption := \'\';

præcis som i VB (Jeg slog den lige efter i MSDN)

Jens B

Borrisholt>> den virker skam til de fleste formål, der hvor jeg har haft brug for den er i forb. med strings og der er alt det du laver slet ikke nødvendigt .. man kalder den bare

if isNum(stringvar)= true then //dosomething else //dosomethingelse;

og hvis du ikke kalder den med en stringværdi men derimod med en talværdi som Input er det så ikke logisk at den er nummerisk ?

DJ> Så langt har du ret .... jeg læste spørgsnålet sådan at spørger vil have en Delphi pendant til VB\'s Isnumeric(), til det kan man kun bruge en variant ....

Anyway skal man bare teste om en strens er en heltals værdi så vil jeg også gøre noget i retning af det du anviser :-)

JEns B

borrisholt>> heh ok :)

Det må være DJ, der får point.
TAK

//et 7 år for sent alternativ *s*
//- hvis det er ligemeget med punktum'et

function isNumeric(theStr:string):boolean;
var i:integer;ch:byte;
begin result:=true;i:=0;
if theStr='' then result:=false else
  while i<length(theStr) do begin
  i:=i+1;ch:=ord(theStr[i]);
  if (ch<48) or (ch>57) then begin result:=false;exit;end;
  end;
end;