/ 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
Hvis jeg dividere med nul ???
Fra : -= Texas =-


Dato : 10-03-01 17:59

Hvad gør jeg forkert ?? Jeg kan godt få dette program til at skrive
resultatet ud i label2.caption, men hvis jeg dividere med nul, vil
den ikke skrive noget ud i label2.caprion.

procedure TForm1.Button2Click(Sender: TObject);
begin
y := strToint(edit1.text);
x := strToint(edit2.text);
if x = 0 then label2.caption := 'Du kan ikke dividere med nul' else
z := y/x;
label2.caption := inttostr(trunc(z));
end;



 
 
Niels (niLLer) (10-03-2001)
Kommentar
Fra : Niels (niLLer)


Dato : 10-03-01 18:51

Just as I expected, -= Texas =- came up with this:

>Hvad gør jeg forkert ?? Jeg kan godt få dette program til at skrive
>resultatet ud i label2.caption, men hvis jeg dividere med nul, vil
>den ikke skrive noget ud i label2.caprion.
>
>procedure TForm1.Button2Click(Sender: TObject);
>begin
>y := strToint(edit1.text);
>x := strToint(edit2.text);
>if x = 0 then label2.caption := 'Du kan ikke dividere med nul' else
>z := y/x;
>label2.caption := inttostr(trunc(z));

Her overskriver du alt hvad der er i label2.caption! Dvs. at din
fejlmeddelelse også bliver overskrevet!

>end;

Ret din if-sætning til:

if x=0 then
label2.caption := 'Du kan ikke dividere med nul!';
else
begin
z := x/y;
label2.caption := IntToStr(Trunc(z));
end;

Så skulle det fungere!

Niels (aka. niLLer)
--
e-mail: nmartin at iname dot com ICQ UIN: 50187323
http://www.niller.f2s.com/ - niLLer's pages (My programs, in English)
http://whitehat.dk/g4s/ - The G4S Page (Personlig side, på dansk)

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