---

Du som ser dette, vil du være behjælpelig med, at få nedstående programstump
til at funger med 2 udlæste decimaler?





procedure TForm1.Vingeradius1Click(Sender: TObject);

Var

InputTekst:string;

radius:Real;

begin

InputTekst:= InputBox('Input Box', 'Vingens radius i meter:', '');

Edit1.Text:= InputTekst;

radius:= StrToInt(Edit1.Text);

Edit5.Text:= (IntToStr(radius * radius))*PI;

end;



Med venlig hilsen



Monie Jacobsen



E-mail: post@sunwind.dk

---

"Monie Jacobsen" <monie@tdcadsl.dk> wrote in
news:3d1c3876$0$153$edfadb0f@dspool01.news.tele.dk:

> Du som ser dette, vil du være behjælpelig med, at få nedstående
> programstump til at funger med 2 udlæste decimaler?
>
>
>
>
>
> procedure TForm1.Vingeradius1Click(Sender: TObject);
>
> Var
>
> InputTekst:string;
>
> radius:Real;
>
> begin
>
> InputTekst:= InputBox('Input Box', 'Vingens radius i meter:', '');
>
> Edit1.Text:= InputTekst;
>
> radius:= StrToInt(Edit1.Text);
>
> Edit5.Text:= (IntToStr(radius * radius))*PI;

Edit5.Text := FormatFloat('#0.00', Din Float værdi ); // Resultatet
bliver præsenteret som en streng


>
> end;
>
>
>
> Med venlig hilsen
>
>
>
> Monie Jacobsen
>
>
>
> E-mail: post@sunwind.dk
>
>
>
>



--
Best Regards / Med venlig hilsen
___________
Michael Vilhelmsen
Microcom ApS, Denmark