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

Iz Edita u Label

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

[ Pregleda: 3564 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

mzarko

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



Profil

icon Iz Edita u Label21.03.2005. u 16:03 - pre 232 meseci
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;
 
Odgovor na temu

Toyo

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



+1 Profil

icon Re: Iz Edita u Label21.03.2005. u 17:24 - pre 232 meseci
Naravno

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

DeYo
Dejan Vukmirovic
developer @ Mogul
Pozarevac/Bgd/Stockholm

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

Sajt: www.linkedin.com/in/dejan..


Profil

icon Re: Iz Edita u Label21.03.2005. u 18:55 - pre 232 meseci
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.
 
Odgovor na temu

mzarko

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



Profil

icon Re: Iz Edita u Label21.03.2005. u 19:57 - pre 232 meseci
Hvala Vam na odgovoru
 
Odgovor na temu

Toyo

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



+1 Profil

icon Re: Iz Edita u Label21.03.2005. u 19:58 - pre 232 meseci
Da, u pravu si.
Tek sam bio ustao pa mi bas mozak nije postigao radnu temperaturu. :(
 
Odgovor na temu

mzarko

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



Profil

icon Re: Iz Edita u Label21.03.2005. u 20:17 - pre 232 meseci
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'
 
Odgovor na temu

IgLo
Igor Lovric
Sremski Karlovci

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

Sajt: www.unicornsoft.net


Profil

icon Re: Iz Edita u Label21.03.2005. u 23:27 - pre 232 meseci
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
 
Odgovor na temu

Toyo

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



+1 Profil

icon Re: Iz Edita u Label22.03.2005. u 00:44 - pre 232 meseci
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)]);
 
Odgovor na temu

mzarko

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



Profil

icon Re: Iz Edita u Label22.03.2005. u 06:53 - pre 232 meseci
Hvala Vam jose jednom.
Radi sto je bitno.
 
Odgovor na temu

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

[ Pregleda: 3564 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

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