Results 1 to 4 of 4

Thread: Invoer type conflict

  1. #1

    Lightbulb Invoer type conflict

    Goedendag

    Ik heb een editveld met een Button waarin men een productnr kan invoeren.
    Stel men voert ipv. een getal per ongeluk een letter in.

    Welke procedure moet die button verder bevatten om deze fouthandeling correct af te handelen?

    Greetzzzzzz,
    ARI

    Dus als men een letter invoert, dat dan het programma niet vastloopt, maar een foutmelding geeft.

  2. #2
    Senior Member PsychoMark's Avatar
    Join Date
    Nov 2001
    Location
    Raamsdonksveer
    Posts
    10,269
    Code:
    iProductNumber := StrToIntDef(txtProductNumber.Text, -1);
    
    if iProductNumber = -1 then
      ShowMessage('Foutief nummer!');


    Als -1 ook geldig zou kunnen zijn zal je StrToInt moeten gebruiken en die in een try-except blok zetten. Als je bij except komt betekend dat dat de string fout is...



    Wat je ook nog zou kunnen doen is dmv OnKeyDown een filter inbouwen in de edit zodat er alleen maar nummers kunnen worden ingevoerd, maar dat valt te omzeilen met zaken als Ctrl-V...
    Qui custodiet ipsos custodes

  3. #3
    eej,

    ehm als de gebruiker geen letters mag invoeren, waarom bouw je hier dan geen check voor, dat het ingevoerde karakter tussen 0 en 9 moet liggen en evt. wat andere toesten als backspace, tab, etc.

    success

  4. #4
    Een voorbeeldje:

    Code:
    procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
    begin
      if not (   (Key = Chr(VK_BACK))
              or (Key = Chr(VK_DELETE))
              ) then
      begin
    
        if ((Key < '0') or (Key > '9')) then
          Key := #0;
    
      end;
    end;
    *Er bestaat geen bugs, alleen leerpunten*

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Office Type Library
    By ruudk in forum Algemeen
    Replies: 2
    Last Post: 23-Jan-04, 14:00
  2. Vriendelijke content type
    By Isildur in forum Algemeen
    Replies: 3
    Last Post: 24-Sep-03, 17:01
  3. ras statistieken
    By Delphifreak in forum WebDelphi
    Replies: 25
    Last Post: 06-Mar-03, 22:19
  4. Gebruik van zelfgedefinieerd type in Oracle
    By MaartenV in forum Databases
    Replies: 0
    Last Post: 28-Feb-03, 17:43

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •