Ĺadny brzuch
Niewie ktoś jak zrobić żeby delphi podstawić umiał zmienną do wzoru np. jak jest wzór a*a(pow.Kwadratu8) ) i mam zmienną "a" która równa się np 5 i chce żeby on to obliczył i podał wynik w edit boxie to co mam mu napisać??
var a : integer; begin a := 5; Edit1.Text := inttostr(a*a); end;
Czy chodziło Ci o coś takiego:?
Można też tak:
var a, ef : real; begin a := StrToFloat(Edit1.Text); ef := a*a; Edit2.Text := FloatToStr(ef); end;
Tak pobierze też z Edita... No i nie będzie ograniczone do integerów :)
Strona mojej grupki programistycznej: www.blaze.er.pl
gg: 4644238 | tlen: chomik-programista
ja zaś na bardziej skomplikowane wzory polece Ci robienie obliczeń w funkcji :
function kwadrat (liczba : integer) : integer; begin Result := a*a; end;
//----------------------
z_forum_experta@beldzio.com
www.beldzio.com
www.beldzio.com/forum
callto://beldzio_software
a jaka ten wzur (a*a) mam zapisany w memo to co wtedy???
cytat:GustlikCannibal napisał:
a jaka ten wzur (a*a) mam zapisany w memo to co wtedy???
okokok już mam moderatoży nie moderujcie
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
var a : integer; begin a := 5; Edit1.Text := inttostr(a*a); end;
Czy chodziło Ci o coś takiego:?
Można też tak:
var a, ef : real; begin a := StrToFloat(Edit1.Text); ef := a*a; Edit2.Text := FloatToStr(ef); end;
Tak pobierze też z Edita... No i nie będzie ograniczone do integerów :)
Strona mojej grupki programistycznej: www.blaze.er.pl
gg: 4644238 | tlen: chomik-programista
ja zaś na bardziej skomplikowane wzory polece Ci robienie obliczeń w funkcji :
function kwadrat (liczba : integer) : integer; begin Result := a*a; end;
//----------------------
z_forum_experta@beldzio.com
www.beldzio.com
www.beldzio.com/forum
callto://beldzio_software
a jaka ten wzur (a*a) mam zapisany w memo to co wtedy???
cytat:GustlikCannibal napisał:
a jaka ten wzur (a*a) mam zapisany w memo to co wtedy???
okokok już mam moderatoży nie moderujcie