Ĺ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
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).
