Saiyine
Punto Com

Recorrer los componentes de un form y cambiar una propiedad de un determinado tipo de componente

0000-00-00 00:00:00

var X:integer;
begin
        for x:=0 to form1.controlcount -1 do
        if (form1.controls[x] is tpanel) then
        tPanel(form1.controls[x]).onclick:=panel1.OnClick;
end;

Rollos antiguos

0000-00-00 00:00:00 - Procedimiento que ordena una lista de cadenas (los lines de los richedit, meno, listbox, ...) usando el algoritmo de la burbuja.

0000-00-00 00:00:00 - Procedimiento que compara dos ficheros del disco.

0000-00-00 00:00:00 - Pasar numeros de binario, hexadecimal, etc a decimal.

0000-00-00 00:00:00 - Parchear un fichero (cambiar un byte cualquiera de un fichero).

0000-00-00 00:00:00 - Operaciones variadas con cadenas.

Saiyine

Selfie of meHi! Welcome to Saiyine Punto Com where I talk about anything that goes through my mind!

Puedo prometer y prometo que a la mayor brevedad aquí irá un menú o algo asín.