Beregner: Fejl

det er selvfølgelig fordi editen ikke indeholder noget, og "ingenting" kan du ikke konventere til et tal.

Du bør nok tjekke om edit1 indeholder et gyldigt tal uanset hvad, fx. med denne funktion:

function IsInteger(S: String): Boolean;
var
  I, Code: Integer;
begin
  Val(S, I, Code);
  Result := Code = 0;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
if not IsInteger(edit1.text) then
begin
  showmessage('kun tal!');
end else
begin
label2.caption := inttostr(strtoint(edit1.text) * (2000));
label8.caption := inttostr(strtoint(edit1.text) * (2000));
label9.caption := inttostr(strtoint(edit1.text) * (0));
label10.caption := inttostr(strtoint(edit1.text) * (4000) div (100) * (30));
end;
end;

Brug inttostrDef i stedet:

eks.
label2.caption := inttostr(strtointdef(edit1.text,0) * (2000));

kan man ikke lave denne i "strtointdef":

label2.caption := inttostr(strtointdef(edit1.text,0) * (2000),ffnumber,10,0);

og kan man ikke lave så den er en label hvor det hele bliver lagt sammen til sidst?
fx:
label77.caption := inttostr(strtointdef(label2.Caption) + strtointdef(label3.Caption),ffnumber,10,0);

altså hvor label2 fx bliver til 2.000, og label3 bliver til 3.000. kan man ikke så lægge det sammen så den skriver 5.000? med punktum (.) hver tredje tal???

Man kan evt også lave en safe konverter

function asIntSafe(const i:integer;const aDefault:integer=0);
begin
if isInteger(i) then result:=intToStr(i) else result:=aDefault
end;

//mbs

//skal jo se sådan ud:

function asIntSafe(const s:string;const aDefault:integer=0):string;
begin if isInteger(i) then result:=intToStr(i) else result:=aDefault end;

//Okay heller ikke... prøver lige igen!

function isNumeric(const s:str):boolean;
var p:pChar;ln:longInt;
begin ln:=length(s);result:=false;if ln=0 then exit;p:=pointer(s);
while p^>#0 do begin if (p^<'0') or (p^>'9') then exit;inc(p) end;result:=true
end;

function asIntSafe(const s:str;const aDefaultValue:longInt=0):int64;
begin if isNumeric(s) then result:=strToInt(s) else result:=aDefaultValue end;

function IsNumeric( Value: string ): boolean;
var
  Number: Extended;
  Error: Integer;
begin
  Val(Value, Number, Error);
  result := (Error = 0);
end;

procedure TForm1.Edit1Change(Sender: TObject);
var
  tal : integer;
begin
  if IsNumeric(edit1.text) then
    tal := strtoint(edit1.text)
  else
    tal := 0;

  label2.caption := inttostr(tal * 2000);
  label8.caption := inttostr(tal * 2000);
  label9.caption := inttostr(tal * 0);
  label10.caption := inttostr(tal * (4000) div (100) * (30));
end;

mbsnet: AsIntSafe findes i kraft at StrToIntDef.

IsNumeric er OK, men jeg kom til at tænke på IsNan (Is Not A Number). Den beskrives her: http://www.delphibasics.co.uk/RTL.asp?Name=IsNaN.

Endelig kan cidoz spærre for andre tegn end tal:

I OnKeyPressed:

  if Key > #32 then
    if not (Key in ['0'..'9']) then
      Key := #0;

Så kan man ikke taste andet en tegn i feltet. Tilsvarende effekt kan fås med en TMaskEdit.

hrc> ok, point taken. Var ellers lige så stolt over at have bygget pointer ind i den :-)

En lille krølle på historien, og en oplysning om andre rare Delphi funktioner ...

På linje mend StrToXXXDef findes der også en TryStrToXXX i det her tilfælde vil det være naturligt at bruge den således :

procedure TForm1.Edit1Change(Sender: TObject);
var
  Tal : integer;
  Numeric : Boolean;
begin
  if not TryStrToInt(Edit1.text, Tal) then
    Tal := 0;

  label2.caption := inttostr(tal * 2000);
  label8.caption := inttostr(tal * 2000);
  label9.caption := inttostr(tal * 0);
  label10.caption := inttostr(tal * (4000) div (100) * (30));
end;


Det er rigtigt den nøjagtig samme løsning får du ved at skrive StrToIntDef(Edit1.Text, 0)

Mit lille indlæg var ikke for at komme med en anden løsning blot for at oplyse om TryStrToXXX ... Man har jo før hørt om Delphi programmører der ikke kendte StrToXXX .. Vi nævner ikke navne ....

Jens Borrisholt

StrToXXX skulle naturligvis være StrToXXXDef :D

Ja jeg har prøvet flere gange at have "opfundet noget" og så flere år efter finder man ud af at det er opfundet i forvejen *lol*