Iz Edita u Label

[ mzarko @ 21.03.2005. 16:03 ] @

Da li je moguce u primeru kada se pretisne na Button da se pojavi text iz Edita u Label (u labelu da bude zadat format). Kada se u Edit upise "100" da se u labelu pojavi "100,00", a kada se upise "100,5" u labelu da se pojavi "100,50".

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := edit1.Text;
end;

[ Toyo @ 21.03.2005. 17:24 ] @

Naravno

Label1.caption:=RoundTo(StrToFloat(edit1.text),-2)

[ DeYo @ 21.03.2005. 18:55 ] @

Citat:

Toyo:
Label1.caption:=RoundTo(StrToFloat(edit1.text),-2)

mala prepravka:

Code:

Label1.caption:=FloatToStr(RoundTo(StrToFloat(edit1.text),-2))

jer je potrebno u Label upisati string a nije moguce podatak tipa float.

[ mzarko @ 21.03.2005. 19:57 ] @

Hvala Vam na odgovoru

[ Toyo @ 21.03.2005. 19:58 ] @

Da, u pravu si.
Tek sam bio ustao pa mi bas mozak nije postigao radnu temperaturu. :(

[ mzarko @ 21.03.2005. 20:17 ] @

Da li mozete malo preciznije da mi objasnite ovo kod mene ne funkcionise, probao sam oba primera ali mi pojavljuje istu gresku:

[Error] Unit1.pas(38): Undeclared identifier: 'RoundTo'

[ IgLo @ 21.03.2005. 23:27 ] @

RoundTo ti je deklarisano u Math unit-u, znaci, odskrolujes se na vrh koda i u Uses dodas Math. Ovo si mogao da saznas tako sto kursor stavis na RoundTo, pritisnes F1 i sve ti se samo kaze

[ Toyo @ 22.03.2005. 00:44 ] @

Eeee pa to ti nece raditi. Sad tek videh. floattostr nece da zaokruzi tacno na 2 mesta, nego na sto manji broj. Koristi ti lepo format iz unita SysUtils.
Vidis sta se desava kad gledam povrsno. Oko jedne linije mi napisasmo celu knjigu.

label1.caption:=format('%10.2f',[strtofloat(edit1.text)]);

[ mzarko @ 22.03.2005. 06:53 ] @

Hvala Vam jose jednom.
Radi sto je bitno.