Problema Delphi.

[LeOCruX]

Deci... de fiecare data cand apare o eroare sau nu stiu cum sa-i zic.. mi se blocheaza calculatorul. Un exemplu de "Eroare" ar fi

Cod:

var x:integer;
s:string;
begin
s:=edit1.text;
x:=strtoint(s);
end;

daca in edit1 scriu un string .....

Acuma intrebare. Cum pot sa filtrez ca atunci cand usserul scrie un string sa-i apara o eroare
am incercat cu exceptii cu chesti cu ...... si tot nu mi-a mers

[AdyX]

Sa inteleg ca tu vrei ca atunci cand userul nu scrie un numar sa-i apara o eroare?

[LeOCruX]

da, sa-i apara o un mesaj nu sa i se blocheze calc....

[AdyX]

Iti poti face o functie cu ajutorul careia sa verifici daca ce contine Edit-ul este numar.

Cod:

function IsNumber(s: string): boolean;
var i: integer;
begin
  Result:=true;
  for i:=1 to length(s) do
    if not(s[i] in ['0'..'9']) then begin
      Result:=false;
      break;
    end;
end;

Functia ce face? Ia fiecare caracter din string si il verifica daca e cifra, urmand ca prima oara cand verificarea pica, functia va returna fals.
Apoi, la eventul OnClick al unui buton (sau cand iti trebuie tie) pui:

Cod:

if not(IsNumber(Edit1.Text)) then
  ShowMessage('Imi pare rau, dar nu ai introdus un numar!')
else
  .....

In principiu asta ai de facut. Sper ca am scris bine, nu am testat

Bafta

[LeOCruX]

mersi .. am sa-l testez eu

[Shocker]

Deci... de fiecare data cand apare o eroare sau nu stiu cum sa-i zic.. mi se blocheaza calculatorul. Un exemplu de "Eroare" ar fi

Cod:

var x:integer;
s:string;
begin
s:=edit1.text;
x:=strtoint(s);
end;

daca in edit1 scriu un string .....

Acuma intrebare. Cum pot sa filtrez ca atunci cand usserul scrie un string sa-i apara o eroare
am incercat cu exceptii cu chesti cu ...... si tot nu mi-a mers

Cum ai incercat cu exceptii mai exact? Ceva de genul:

Cod:

try
 x:=strtoint(s);
except
 ShowMessage('Numar invalid');
end;

?

[SkullAds]