[Delphi] Działania matematyczne.

[mikszy5]

Mam taki problem.
Z góry pisze ż eprobowałem coś zanleźć i czytałem i probowąłem ale nic mi nei wychodziło więc piszę..
mus zzrobić coś takiego
mam Edit1 i Edit2 wpisuje do nich wartości dodatnie maks 300 ale z ułamkami!!(np 2,4; 5,2 itd)
OD Edit1 odejmuje Edit2 to co wyjdzie dziele przez 0,02 to zo wyjdzie podajemy w label 1
następnie wartość eDIT 1 minus EDIT2 to co wyjdzie do kwadratu dzielone przez wartość z label 1 i wynik podajemy w Label 2. Troche nakręciłem ale bardzo to potzrebuje:/ sam probowałem na zmiennych robić i mi nie wychodziło. Niestety ale jetsm zmuszony prosić o całą procedure:/

 

[Mo4x]

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Classes,  Controls, Forms, StdCtrls, Math;



type

  TForm1 = class(TForm)

    Button1: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

var

a, b, c, d : Currency;

begin

a := StrToCurr(Edit1.Text);

b := StrToCurr(Edit2.Text);

c := a - b;

Label1.Caption := CurrToStr(c/0.02);

d := Power(a-b, 2);

Label2.Caption := CurrToStr(d/StrToCurr(Label1.Caption));

end;



end.

Na szybko, z resztą jest już późno, możliwe, że się pomyliłem...

 

[mikszy5]

Wielkie dzięki o to chodizło. A czy jest mozliwość aby wartość z Label2 zaokrąglić do części setnych??



Zgóry wielkie dzięki

 

[Mo4x]

Originally posted by mikszy5
A czy jest mozliwość aby wartość z Label2 zaokrąglić do części setnych??

Użyj takiego kodu:

 Str(StrToCurr(Label2.Caption):666:2,rslt);

[ Dodano: 17-06-2006, 11:51 ]
Można jeszcze tak:

var

  Number : Real;

begin

  Number := 64.456345634;

  ShowMessage(FormatFloat('0.00', Number));

end;

Albo tak:

var

  Number : Real;

begin

  Number := 64.456345634;

  Number :=RundTo(Number,-2)