Srodne teme

23.06.2001. Label.Caption moram da snimim u File
03.04.2002. Mali problem sa bazom za nekog!
13.03.2002. Suma kolone u bazi??
24.10.2002. Tastatura
26.04.2005. Centriranje "label"
28.04.2005. Perl/Tk focus i <Tab>
13.07.2005. multipart/form-data + c# :)
07.11.2005. problem s epsonom lx300
27.11.2005. svetlija nijansa sistemske boje
31.03.2006. Label for ona dva checkboxa :)

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.

Iz Edita u Label

[es] :: Pascal / Delphi / Kylix :: Iz Edita u Label	[ Pregleda: 996 \| Odgovora: 8 ]	Postavi temu Odgovori

Autor

mzarko

Član broj: 33636
Poruke: 74
*.ptt.yu.

Profil

Iz Edita u Label

^{21.03.2005. u 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;

^{21.03.2005. u 16:03}

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.

Profil

Re: Iz Edita u Label

^{21.03.2005. u 17:24}

Naravno

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

^{21.03.2005. u 17:24}

DeYo
Dejan Vukmirovic
developer @ Mogul
Pozarevac

Član broj: 36771
Poruke: 70
*.etf.bg.ac.yu.

Sajt: galeb.etf.bg.ac.yu/~mohaa

Profil

Re: Iz Edita u Label

^{21.03.2005. u 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.

^{21.03.2005. u 18:55}

mzarko

Član broj: 33636
Poruke: 74
*.ptt.yu.

Profil

Re: Iz Edita u Label

^{21.03.2005. u 19:57}

Hvala Vam na odgovoru

^{21.03.2005. u 19:57}

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.

Profil

Re: Iz Edita u Label

^{21.03.2005. u 19:58}

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

^{21.03.2005. u 19:58}

mzarko

Član broj: 33636
Poruke: 74
*.ptt.yu.

Profil

Re: Iz Edita u Label

^{21.03.2005. u 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'

^{21.03.2005. u 20:17}

IgLo
Igor Lovric
Sremski Karlovci

Član broj: 19524
Poruke: 128
*.neobee.net.

Sajt: lovric.narod.ru

Profil

Re: Iz Edita u Label

^{21.03.2005. u 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

^{21.03.2005. u 23:27}

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.

Profil

Re: Iz Edita u Label

^{22.03.2005. u 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)]);

^{22.03.2005. u 00:44}

mzarko

Član broj: 33636
Poruke: 74
*.ptt.yu.

Profil

Re: Iz Edita u Label

^{22.03.2005. u 06:53}

Hvala Vam jose jednom.
Radi sto je bitno.

^{22.03.2005. u 06:53}

[es] :: Pascal / Delphi / Kylix :: Iz Edita u Label

[ Pregleda: 996 | Odgovora: 8 ]

Srodne teme

23.06.2001. Label.Caption moram da snimim u File
03.04.2002. Mali problem sa bazom za nekog!
13.03.2002. Suma kolone u bazi??
24.10.2002. Tastatura
26.04.2005. Centriranje "label"
28.04.2005. Perl/Tk focus i <Tab>
13.07.2005. multipart/form-data + c# :)
07.11.2005. problem s epsonom lx300
27.11.2005. svetlija nijansa sistemske boje
31.03.2006. Label for ona dva checkboxa :)

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.