Zkusil jsem to z hlavy nemam tu delphi a nevim jak se plni ty cells v stringgridu ale tohle naplni vsechny tlabely stejnym jmenem treba. <br><br>For i:=0 to ComponentCount-1 do<br> begin<br> if Components[I] is Tlabel then TLabel(Components[I]).caption:='ahoj';
<br> end;<br><br>s pozdravem <br><br>snehulak<br><br><div><span class="gmail_quote">On 27/04/07, <b class="gmail_sendername">Zdenek</b> <<a href="mailto:zdej@atlas.cz">zdej@atlas.cz</a>> wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Poradil by mi nekdo, jak vytvorit univerzalni proceduru pro praci s vice<br>komponentami stejneho typu?<br>Mam nekolik komponent (SG1..SG10) typu TStringGrid a chtel bych se vsemi<br>provest stejnou operaci (naplnit Cells).
<br>Ve smycce ji nemuzu volat s parametry typu TStringGrid, ale treba<br>integer (1 pro SG1, atd).<br><br>Nektere vlastnosti muzu menit pres Component[x] a GetPropInfo, ale<br>neumim menit obsah Cells.<br><br>Zdenek<br>_______________________________________________
<br>HW-list mailing list - sponsored by <a href="http://www.HW.cz">www.HW.cz</a><br><a href="mailto:Hw-list@list.hw.cz">Hw-list@list.hw.cz</a><br><a href="http://list.hw.cz/mailman/listinfo/hw-list">http://list.hw.cz/mailman/listinfo/hw-list
</a><br></blockquote></div><br>