Check indhold af editbox

Nu du alligevel er her, så ta' også lige et kig på http://www.eksperten.dk/spm.asp?id=14114 ;)

Snowball

I Editboksens (onKeyPress), kan du indsætte følgende kode.

hvis dette ikke virker skal det være på Editfeltets (onKeyUp) eller (onKeyDown) event.

begin
  case ord(key) of
    48..59:;
    8:;
  else
    key = #0;

  if length(Edit1.Text) = 6 then
    GyldighedsKnap.Caption := 'Gyldig';
  else
    GyldighedsKnap.Caption := 'Ugyldig';

end;

Er taget frit fra hukommenlsen (har ikke Delphi ved hånden lige nu)

Det skulle gerne virke.


/SpEeDy

Du kunne jo lave en event til EditBox'ens OnExit, som så sådan ud:

procedure EditExit(Sender: TObject);

var
  Legal: Boolean;
  Temp: Integer;

begin

  Legal := Length(Text) = 6;

  try

    Temp := StrToInt(Text); // Test om det er et gyldigt tal.

  except

    Legal := False; // Hvis det ikke er.

  end;

  if not Legal then // Hvis krikerierne ikke blev opfyldt
  begin
    MessageBox(Screen.ActiveForm.Handle, 'Ugyldig værdi!', 'Fejl', MB_OK);
    SetFocus; // Giv Edit'en fokus
  end;

end;

Håber du kan bruge det :)

delphidaner's svar virker bedst synes jeg. DOG er der lige et lille problem: Hvis man skriver både tal og bogstaver (f.eks. 123abc, men ikke abc123!) crasher programmet, og skriver det ikke er en gyldig integer værdi (hvilket jo er logisk nok ;) )!!!

Hvis du lige kan lave det om, så får du dine point !

Snowball

Programmet Crasher ikke, det er bare Delphi, der stopper. Hvis du kører exe-filen, er der ingen problemer.

/SpEeDy

En anden løsning, der er lidt pænere:

Function ValiderTekst(Tekst:String): Boolean;
Var
  Code, V : integer;
Begin
  Val(Tekst, V, Code);
  If (code = 0) and (length(tekst) = 6) then
    Result := True
  else
    Result := false;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  If not validerTekst(edit1.text) then
    Showmessage('Fejl i indtastningen!!!');
end;

Val er en Delphi funktion, der netop har til formål at validere om en tekst kan oversættes til et heltal...

Returværdien af variablen Code, kan også benyttes til at fortælle på hvilken plads i teksten der opstod et problem. Men når værdien af den er nul, er det fordi det er gået godt.

Venlig hilsen
Retep

Kanon retep !

Det virker bare som det skal :-)

Sorry delphidaner, men retep kom først med en helt brugbar løsning, så point'ene går til ham !

Snownall