[ saxa @ 07.09.2011. 22:49 ] @
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
[ savkic @ 08.09.2011. 00:44 ] @
> 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;

[ saxa @ 02.12.2011. 22:15 ] @
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
[ Almedin @ 02.12.2011. 22:56 ] @
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?
[ salaczr @ 03.12.2011. 08:20 ] @
Za takve stvari je pogodan Tag properties.

pozdrav