Saskaitīt to,kas ierakstīts TextBox (Delphi)

Ievietoja: BlowMagnum @ 2008.05.25 18:28

Tātad, ir divi Textbox'i, vienā no viņiem ir ierakstīts,pieņemsim, skaitlis astoņi, bet otrā skaitlis pieci. Kā varētu šos TextBoxus saskaitīt un rezultātu (13) izvadīt ar ShowMessage(); ?

P.S Redzēju, ka jau ir bijusi līdzīga tēma šeit agrāk, bet komentāri ir pazduši.

Komentāri:

#1 Eric @ 2008.05.25 18:32

function Saskaitit(t1, t2:TTextBox):Double;
var
begin
result := FloatToStr(t1.text) + FloatToStr(t2.text);

end;

#2 BlowMagnum @ 2008.05.25 18:45

[Error] There is no overloaded version of 'FloatToStr' that can be called with these arguments.

Kā to saprast?

#3 JonyBravo @ 2008.05.25 20:17

2# vienkārši, īsti pareizi 1# komentārs nav..
floattostr latviski būtu apmēram peldošais decimālskaitlis uz simbolu rindu, bet tev jau vajag otrādi.. .. :D

#4 KaNeiet @ 2008.05.25 20:18

http://automatedqa.com/community/Home/Articles/tabid/38/articleType/Ar…

#5 BlowMagnum @ 2008.05.25 21:02

Sanāk, ka tas,kas ir ievadīts txtbox'os ir strings un tas ir jāpārveido uz 'floating-point value.' Cik saprotu tad ir nevis FloatToStr, bet StrToFloat.

Tālāk, kad tās abas vērtības ir 'floating-point value' man viņas atkal ir jādabūn, kā strings, lai varētu izvadīt to, kas tur saskaitījies?

#6 KaNeiet @ 2008.05.25 21:05

Kāpēc lai būtu jāpārveido - arī skaitli taču, šķiet, var izvadīt.

#7 BlowMagnum @ 2008.05.25 21:15

ShowMessage(FloatToStr(StrToFloat(Edit1.text) + StrToFloat(Edit2.text)));

Nu vot :)
Paldies!

Datuve

Mana Datuve

Forums

Ieskaties

Raksti

Lietotāji online

Saskaitīt to,kas ierakstīts TextBox (Delphi)

Komentāri: