[Delphi]In If-statement waarden controleren

[Kwistnix]

Heb een probleem, ik wil in een if statement kijken of de waarde uit een TEdit naar een integer converteerbaar is, anders moet ie een foutmelding geven.
Met try...except kan je ook wel zoiets doen, maar dat kan in dit geval niet.

Zoiets als:

code:

if StrToInt(CbTafelnr.Text)=integer then
doe iets
else
geef foutmelding;

[mulder]

if IsNumeric(CbTafelnr.Text) then

[BM]

Je zou eventueel ook meteen bij het invullen kunnen kijken of het een getal is, of iets anders.
Alleen cijfers toelaten, en als het iets anders is niks invullen.
Heb ooit zoiets gemaakt, kan code zo snel alleen niet vinden
Onkeydown, of onkeypress was het iig

[Kwistnix]

IsNumeric kent Delphi 4 niet.

[Kwistnix]

Op zaterdag 18 mei 2002 21:23 schreef SpeedAddict het volgende:
Je zou eventueel ook meteen bij het invullen kunnen kijken of het een getal is, of iets anders.
Alleen cijfers toelaten, en als het iets anders is niks invullen.
Heb ooit zoiets gemaakt, kan code zo snel alleen niet vinden
Onkeydown, of onkeypress was het iig

Ik zou eerlijk gezegd niet weten hoe ik dat moet doen.

[Varienaja]

Op zaterdag 18 mei 2002 21:46 schreef FallenAngel666 het volgende:
Ik zou eerlijk gezegd niet weten hoe ik dat moet doen.

Neem een SpinEdit.

[BM]

[code]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key<'0') or (key>'9') then
begin
key:=' ';
showmessage('alleen nummers');
end;
end;
[code]
zoiets zou het moeten zijn.
Dit is dan voor keypress op een formulier, maar een editbox heeft een zelfde optie.

edit:

ff betere code gezocht, geeft nu een spatie als er geen nummer ingevuld is, weet zo snel niet hoe je niks invult.

[Delpix]

code:

  for x := 1 to Length(getal1) do
    if Getal1[x] in ['1','2','3','4','5','6','7','8','9','0'] = false then
    Caption := 'waarde kent meer dan alleen getallen.';

[Kwistnix]

Op zaterdag 18 mei 2002 22:22 schreef Delpix het volgende:

code:

  for x := 1 to Length(getal1) do
    if Getal1[x] in ['1','2','3','4','5','6','7','8','9','0'] = false then
    Caption := 'waarde kent meer dan alleen getallen.';

Thanx!
Het klopt nog niet helemaal, want als de stringwaarde van getal1 een nummer bevat (bijv de waarde ditiseenwaarde123test) dan wordt die doorgelaten.
Waardes die geen nummer bevatten worden in iedergeval niet doorgelaten.
Ik ga hier eens mee werken.
Thx!

[Aetje]

code:

begin
  try
    StrToInt(CbTafelnr.Text);
  except
    on EConvertError DO
    Geef Error;
    Abort; // Breek huidige procedure af indien fout
  end;
  doe iets;
end;

En nu mag jij me vertellen waarom dit niet zou werken...

[edit]

code:

Function IsAlleenNummers(instring:string):boolean;
var IsOnlyNr : boolean;
    i     : integer;
begin
  IsOnlyNr := True;
  IF Length(instring) = 0 then IsOnlyNr := False;
  for i := 1 to Length(instring) do
    if NOT (instring[i] in ['1','2','3','4','5','6','7','8','9','0']) then
    IsOnlyNr:=FALSE;
  Result := IsOnlyNr;
end;

Werkt ook. Hoe je die functie gebruikt wijst zich vanzelf

[Kwistnix]

Omdat ik bij het drukken op een knop de inhoud van 2 Comboboxes moet controleren alvorens de inhoud van die comboboxes als value in een insert query wordt gezet.
Dus als de 1e combobox of de 2e combobox bij het drukken op de knop een ongeldige waarde bevat moet de melding komen.

[Aetje]

Is me nog niet duidelijk waarom dat niet dmv de EConvertError kan...

[Kwistnix]

Ik krijg de code niet verzonnen met die try...except, geneste if combinatie. Heb er al een hele tijd op zitten kijken.

[Wouter Tinus]

Gewoon Val(); gebruiken, zoek maar even in de help .

procedure Val(S; var V; var Code: Integer);

Description

Val converts the string value S to its numeric representation, as if it were read from a text file with Read.

S is a string-type expression; it must be a sequence of characters that form a signed real number.

V is an integer-type or real-type variable. If V is an integer-type variable, S must form a whole number.

Code is a variable of type Integer.

If the string is invalid, the index of the offending character is stored in Code; otherwise, Code is set to zero. For a null-terminated string, the error position returned in Code is one larger than the actual zero-based index of the character in error.

Val performs range checking differently depending upon the setting of the $R compiler directive and the type of the parameter V.