/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
aflusning for inge input
Fra : Monie Jacobsen


Dato : 11-02-02 18:20

Til dig der læser dett.
Først mange tak fordi du læser dette.
Vil du hjælpe mig med et problem?

1: At ved ingen indput og derefter Enter, vil nedstående procedure kunne
opfanger en sådan fejl.
Som det er nu, opfanger programmet kun vis det ikke er et tal, men ikke
vis, der ikke er indskrevet noget.
Men kunne ønske mig, at det kunne går tilbage til en ny
indskrivningsmulighed + meddelse om, at der ikke var noget indskrevet.


procedure TForm1.Button2Click(Sender: TObject);
Var
InputTekst : String;
I,Code : Integer;
begin
Listbox1.Clear;
Listbox2.Clear;
Edit2.Clear;
InputTekst:=InputBox('Indskriv den ønskede længden','Skriv et tal:','');
VAL(InputTekst,I,Code);
if Code<>0 then
MessageDlg('Kun heltal er tilladt her',mtinformation, {Kan der indsætte en
ekstra MessageDlg for ikke noget input i InputBox?}
[mbOK],0)
else begin
Panel3.Caption:=InputTekst +' mm';
Edit2.Text:=InputTekst;

end;
end;

Med venlig hilsen
Og på forhånden mange tak. Skal bruge det i en opgave på Teknisk skole til
en rapport i informatik.
Hvor emnet er et lille murberegningsprogram i Delphi6.

Monie Jacobsen

E-mail: post@sunwind.dk




 
 
Olav M.J. Christians~ (12-02-2002)
Kommentar
Fra : Olav M.J. Christians~


Dato : 12-02-02 10:49

"Monie Jacobsen" <monie@mail.lele.dk> skrev i en meddelelse
news:3c67fd98$0$225$edfadb0f@dspool01.news.tele.dk...
> procedure TForm1.Button2Click(Sender: TObject);
> Var
> InputTekst : String;
> I,Code : Integer;
> begin
> Listbox1.Clear;
> Listbox2.Clear;
> Edit2.Clear;
> InputTekst:=InputBox('Indskriv den ønskede længden','Skriv et tal:','');
> VAL(InputTekst,I,Code);
> if Code<>0 then
> MessageDlg('Kun heltal er tilladt her',mtinformation, {Kan der indsætte en
> ekstra MessageDlg for ikke noget input i InputBox?}
> [mbOK],0)

Da InputTekst er en String kan du jo bare teste for en null-string først,
f.eks noget i retning af følgende:

if InputTekst = '' then // her udfører du det der skal ske hvis der ikke er
indtastet noget
....
else
begin
VAL bla bla
if Code bla bla
...
end;

M.v.h.
Olav




Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste