ďťż

Ładny brzuch

Maże o funkcji która w 30 editach naraz wyczyści text. Może jakaś sprytna pętla??




Maże o funkcji która w 30 editach naraz wyczyści text. Może jakaś sprytna pętla??

Proszę:
var i : integer; tmp : TEDIT; begin for i:=1 to 30 do begin tmp := form1.FindComponent('edit' + IntToStr(i)); tmp.text := 0; end; end;
Jeżeli twoje edity nazywają się edit1,edit2,edit3,itd.


Proszę:
var i : integer; tmp : TEDIT; begin for i:=1 to 30 do begin tmp := form1.FindComponent('edit' + IntToStr(i)); tmp.text := 0; end; end;
Jeżeli twoje edity nazywają się edit1,edit2,edit3,itd.



Do migajek:
Wszystko prawda.Ubiegłeś mnie w pisaniu, ale ja nie sprawdziłem kodu.
Jednak ciekawostka, że obydwaj wpadliśmy na to samo (nie niewiedziałem, że ty piszesz).


Do migajek:
Wszystko prawda.Ubiegłeś mnie w pisaniu, ale ja nie sprawdziłem kodu.
Jednak ciekawostka, że obydwaj wpadliśmy na to samo (nie niewiedziałem, że ty piszesz).

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
  •