/ 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
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)
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


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