Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Como crear un procedimiento (https://www.clubdelphi.com/foros/showthread.php?t=17532)

JODELSA 12-01-2005 16:51:43

Como crear un procedimiento
 
Hola!
Esto es para una prueba. tengo varios componentes edit en mi pantalla y le quiero poner la propiedad edit en blanco, pero quiero hacer un procedimiento que yo pueda ejecutar en cualquier lugar del programa como lo hago?

gracia

roman 12-01-2005 17:41:18

Código Delphi [-]
/*
  Procedimiento para limpiar los controles TEdit
  de cualquier formulario.
 
  Parámetros:
    F - Formulario que se quiere limpiar.

  Notas:
    El procedimiento puede llamarse en cualquier parte

  Alumno:
    Román

  Calificación: _______
*/
procedure Limpia(F: TForm);
var
  I: Integer;

begin
  if not Assigned(F) then exit;

  for I := 0 to Pred(F.ComponentCount) do
    if F.Components[i] is TEdit then
      TEdit(F.Components[i]).Clear;
end;

// Saludos


La franja horaria es GMT +2. Ahora son las 16:42:34.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi