|
![](/App_Themes/Normal/images/Window/Backgrounds/news.gif) | Decimaler? Fra : Monie Jacobsen |
Dato : 28-06-02 11:21 |
|
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
| |
Michael Vilhelmsen (28-06-2002)
![](/App_Themes/Normal/images/Window/Backgrounds/news.gif) | Kommentar Fra : Michael Vilhelmsen |
Dato : 28-06-02 11:30 |
|
"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
| |
|
|