Hvis Edit indeholder int

uses Dialogs;
var

  I, Code: Integer;
begin
  { Get text from TEdit control }
  Val(Edit1.Text, I, Code);
  { Error during conversion to integer? }
  if Code <> 0 then
    MessageDlg('Error at position: ' + IntToStr(Code), mtWarning, [mbOk], 0);
  else
    //Det som skal gøres hvis det er et tal
end;

Brug en TMaskEdit. Den validerer det der skrives.

Hvis der kun må komme tal ind vil jeg foretrække en SpinEdit, du finder den under komponent "fanen" Samples.

SpinEdit giver dig mulighed for at sætte min og max værdi for de indtastede tal

hvordan bruges TmaskEdit ?

Placer en Editmask på din form.

Der er en property der hedder EditMask. Klik på den, og frem kommer der en dialog, hvori du kan definere hvad der må skrives i feltet. I Dialogen kan du se nogle eksempler på forskellige Editmask's:

F.eks:

!99999;1;_ giver et 5 cifret tal.

Dete er er skrevet i feltet aflæses med Text property ligesom ved en normal TEdit.

Når du skal læse talværdien i din Maskedit gør du sådan her:

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  i := StrToInt(MaskEdit1.Text);
end;

jamen så kommer der jo baresådan nogle _ og så kan man springe en plads over ikke ?

Ja og på de ___ kan du kun indtaste tal,

Se lidt på SpinEdit, det er den bedste til tal

!99999;1;_ giver et 5 cifret tal.

!99999 angiver at her må der kun angives tal
_ betyder at der indsættes _, der hvor der ikke er skrevet noget endnu.

Du kan bare vælge ikke at angive _

morten_s >> men jeg tror jeg er kommet til at smide spin.dcu cæk ced en tidligere opgave, ved du hvor jeg kan finde en ny ?

Har du ikke SpinEdit under fanen Samples ?

ellers lig din mail adr. så sender jeg den lige

ncp@totaltop.dk - jeg flytttede den engang fra delphi bibloteken og så er den åbenbart forsvundet ?

det første du kom med virker det ? jeg synes da det virker godt...

Spin.dcu Er sendt

Ja mit første burde virke o.k.

det gør det jo, så hvorfor bruge spinedit eller mask edit ?

tak for hurtig hjælp :)

du slipper jo for ovenstående kode, idet det er indeholdt i spinedit og maskedit