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

upravljanje komponentama

[es] :: Pascal / Delphi / Kylix :: upravljanje komponentama

[ Pregleda: 1747 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

saxa
nikolina zorica
student
zagreb

Član broj: 266531
Poruke: 55
*.adsl.net.t-com.hr.



Profil

icon upravljanje komponentama07.09.2011. u 22:49 - pre 152 meseci
pitanje

ako u Delphiju na formi imamo npr.

Edit1
Edit2
Edit3
Edit4

i želimo npr sa svih u toku rada programa izbrisati txt .... da li postoji način da to napravimo a da ne pišemo za svaku komponentu posebno ...nego pomoću TEdit?

tnx
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: upravljanje komponentama08.09.2011. u 00:44 - pre 152 meseci
> ako u Delphiju na formi imamo npr.
> Edit1
> Edit2
> i želimo npr sa svih u toku rada programa izbrisati txt .... da li postoji način da to napravimo a da ne pišemo za svaku komponentu posebno ...nego pomoću TEdit?

Code:

var
  i: Integer;
begin
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TEdit then
      TEdit(Components[i]).Text := '';
end;


 
Odgovor na temu

saxa
nikolina zorica
student
zagreb

Član broj: 266531
Poruke: 55
*.adsl.net.t-com.hr.



Profil

icon Re: upravljanje komponentama - dodatno02.12.2011. u 22:15 - pre 149 meseci
imam TEdit komponente, nekih 50-tak komada,

i sad trebam da mi se njih 15 obrađuje na jedan način, 15 na drugi način i 20 na treći način

imena komponenti su

txt1 - txt20

txtT1-txtT15

txtTT1 - txtTT15

KAKO napisati kod da obuhvatim sve komponente koje su mi potrebne (tako da ne moram jednu po jednu)

Ovaj prije predložen kod je dobar kad se obrađuju baš sve, ali kako kad samo neke od njih???

hvala
 
Odgovor na temu

Almedin

Član broj: 5895
Poruke: 425
213.196.72.*



+27 Profil

icon Re: upravljanje komponentama02.12.2011. u 22:56 - pre 149 meseci
Code:
var
  i: Integer;
begin
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TEdit then
    begin
      if Copy(TEdit(Components[i]).Name, 1, 5) = 'txtTT' then
        TEdit(Components[i]).Text := ''
      else if Copy(TEdit(Components[i]).Name, 1, 4) = 'txtT' then
        TEdit(Components[i]).Text := ''
      else if Copy(TEdit(Components[i]).Name, 1, 3) = 'txt' then
        TEdit(Components[i]).Text := '';
    end;
end;


Otprilike ovako?
 
Odgovor na temu

salaczr

Član broj: 160654
Poruke: 103
*.dynamic.isp.telekom.rs.



+5 Profil

icon Re: upravljanje komponentama03.12.2011. u 08:20 - pre 149 meseci
Za takve stvari je pogodan Tag properties.

pozdrav
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: upravljanje komponentama

[ Pregleda: 1747 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

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