Simplemente un comentario sobre algo que he leido hace algun tiempo en algun manual de delphi
en este decia que la utilizacion de "AS" no era muy conviente porque producia un consumo de memoria, talves excesivo
en su defecto recomendaba usar
Código Delphi
[-]
TControl(FCmpList.Items[i]).Enabled:= False;
TControl(FCmpList.Items[FCmpList.IndexOf(Label1)]).Enabled:= True;
ecfisa, no es a modo de corrección (no estoy a la altura de semejante cosa) y perdon si estoy diciendo algo que es incorrecto.
saludos
Cita:
Empezado por ecfisa
Un ejemplo:
Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
i: Integer;
begin
for i:= 0 to FCmpList.Count -1 do
(FCmpList.Items[i] as TControl).Enabled:= False;
(FCmpList.Items[FCmpList.IndexOf(Label1)] as TControl).Enabled:= True;
FCmpList.Items[FCmpList.IndexOf(Memo1)].Free;
end;
...
Saludos.
|