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)