problema para limpiar cajas de texto

[tebre]

hola amigos tengo un problema cree un procedimiento para limpiar cajas de texto pero cuando compila el programa me marca en rojo. Alguien podria decirme que pasa, pasarme una funcion o procedimiento para limpiar cajas de texto.
desde ya gracias......... soy nuevo en delphi

Procedure limpiar(Sender: Tobject);
begin
CmbDireccion.Text:='';
EdNumEmpleado.Text:='';
EdNombre.Text:='';
EdAppaterno.Text:='';
EdApmaterno.Text:='';
EdNivel.Text:='';
EdLogin.Text:='';
EdPassword.Text:='';
end;

[[cHackAll]]

Empezado por tebre

...cuando compila el programa me marca en rojo...

Huuuuu es sangre!

En que linea "marca en rojo" y que mensaje vien adjunto a éste?


CmbDireccion.ItemIndex := 0; ????

[tebre]

el mesaje es UNdeclared Identifier 'CmbDireccion' el mesaje es para todos los edit del procedimieento...

ya lo tengo declarado el procedimiento y nada

[[cHackAll]]

Y revisaste si todos los nombres (CmbDireccion, EdNumEmpleado, EdNombre, EdAppaterno, EdApmaterno, EdNivel, EdLogin, EdPassword) existen en tu formulario ???

[tebre]

si existen la verdad no se que pasa???

[[Delphius]]

Hola tebre,
Los TEdit cuentan con el método Clear que sirve para borrar el contenido.

Ahora para saber lo que está sucediendo, sería bueno que nos comentes más al respecto. Viendo el código te podríamos decir más. Esa pequeña muestra que nos haces llegar no dice mucho del problema.

Saludos,

[tebre]

Lo que necesito es un procedimiento para limpiar mis controles.. y no estar repitiendo codigo.

la ayuda seria porque falla mi codigo o que de plano me dieran otra solucion



unit UEmpleados;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Buttons;
type
TFrmEmpleados = class(TForm)
PcModificarEmpleado: TPageControl;
TabModificaEmpleado: TTabSheet;
TabSheet3: TTabSheet;
TabSheet1: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Login: TLabel;
password: TLabel;
EdNumEmpleado: TEdit;
EdAppaterno: TEdit;
EdApmaterno: TEdit;
EdNivel: TEdit;
CmbDireccion: TComboBox;
EdNombre: TEdit;
EdLogin: TEdit;
EdPassword: TEdit;
BtnGuardar: TBitBtn;
BtnCancelar: TBitBtn;
BtnNuevo: TBitBtn;
LblClaveDireccion: TLabel;
LblEncriptado: TLabel;
CmbEmpleado: TComboBox;
Seleccionar: TLabel;
BtnModificar: TBitBtn;
LblModificaEmpleado: TLabel;
EdMNumEmpleado: TEdit;
EdMNombre: TEdit;
EdMAppaterno: TEdit;
EdMApmaterno: TEdit;
EdMNivel: TEdit;
EdMLogin: TEdit;
EdMPassword: TEdit;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
CmbMDireccion: TComboBox;
BtnMActualizar: TBitBtn;
BtnMCancelar: TBitBtn;
BtnMSalir: TBitBtn;
lBLGuardaClave: TLabel;
procedure CmbMDireccionEnter(Sender: TObject);
procedure BtnModificarClick(Sender: TObject);
procedure CmbEmpleadoSelect(Sender: TObject);
procedure TabModificaEmpleadoEnter(Sender: TObject);
procedure CmbDireccionEnter(Sender: TObject);
procedure CmbDireccionClick(Sender: TObject);
procedure EdNumEmpleadoKeyPress(Sender: TObject; var Key: Char);
procedure EdNivelKeyPress(Sender: TObject; var Key: Char);
procedure BtnCancelarClick(Sender: TObject);
procedure CmbDireccionSelect(Sender: TObject);
procedure FormShow(Sender: TObject);

procedure EdPasswordEnter(Sender: TObject);
procedure EdLoginEnter(Sender: TObject);
procedure EdNivelEnter(Sender: TObject);
procedure EdApmaternoEnter(Sender: TObject);
procedure EdAppaternoEnter(Sender: TObject);
procedure EdNombreEnter(Sender: TObject);
procedure EdNumEmpleadoEnter(Sender: TObject);
procedure EdPasswordClick(Sender: TObject);
procedure EdLoginClick(Sender: TObject);
procedure EdNivelClick(Sender: TObject);
procedure EdApmaternoClick(Sender: TObject);
procedure EdAppaternoClick(Sender: TObject);
procedure EdNombreClick(Sender: TObject);
procedure EdNumEmpleadoClick(Sender: TObject);
procedure BtnGuardarClick(Sender: TObject);
procedure BtnNuevoClick(Sender: TObject);
//procedure limpiar(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmEmpleados: TFrmEmpleados;
implementation
uses Uconexion;
{$R *.dfm}

function encriptar(aStr: String; aKey: Integer): String;
begin
Result:='';
RandSeed:=aKey;
for aKey:=1 to Length(aStr) do
Result:=Result+Chr(Byte(aStr[aKey]) xor random(256));
end;

Procedure limpiar(Sender: Tobject);
begin
CmbDireccion.Text:='';
EdNumEmpleado.Text:='';
EdNombre.Text:='';
EdAppaterno.Text:='';
EdApmaterno.Text:='';
EdNivel.Text:='';
EdLogin.Text:='';
EdPassword.Text:='';
end;

[TOPX]

Hola,

EDITO:

Cambio todo:

Puede declarar sus procedimientos en la sección private, luego oprimir Ctrl + C y el IDE le completará la implementación.

[tebre]

lo pase al private y oprimime Ctrl+c y no paso nada...
aclaacion del codigo.. tengo en comentario la funcion porque no la estoy usando......
el problema persiste...alguien tiene alguna otra forma de limpiar los controles..el objetivo es no repetir el codigo de limpiado de controles

[[Delphius]]

Tebre, por favor emplea las etiquetas DELPHI para resaltar el código.
De todas formas veo claramente que no todos los eventos que declaraste están con su correspondiente "cuerpo" o código.
O te olvidaste de copiarlos, o simplemente es porque allí está parte del problema.

Saludos,

[TOPX]

Mi error, quise decir Shift + Ctrl + C, para que quede así:

Código Delphi [-]
private
{ Private declarations }
  procedure Limpiar;
public
{ Public declarations }
end;

var
  FrmEmpleados: TFrmEmpleados;

implementation

//...

Procedure TFrmEmpleados.Limpiar;
begin
  // ...
end;

[[Delphius]]

Empezado por tebre

alguien tiene alguna otra forma de limpiar los controles..el objetivo es no repetir el codigo de limpiado de controles

Puedes tener un procedimiento así:

Código Delphi [-]
procedure Limpiar(AEdit: TEdit);
begin
  AEdit.Clear;
end;

E invocarlo cuando sea necesario.
Ahora, si deseas limpiar un grupo de TEdits y no sólo uno lo puedes hacer algo así:

Código Delphi [-]
procedure LimpiarEdits;
var i: integer;
begin
  for i := 0 to ComponentCount -1 do
    begin
       if Components[i] is TEdit then TEdit(Components[i]).Clear;
    end;
end;

Lo hice más o menos al vuelo... no tengo Delphi a mano puede tener algunos errores. La idea es recorrer los componentes y si es un TEdit, borrar el contenido.

Saludos,

[tebre]

Gracias a todos por su ayuda.. es problema resuelto


en verdad son de gran ayuda en este caso para mi que estoy empezando..



saludos!!!!