51 respuestas en este tema

[jordangel]

wuaho... veo que caral.. se me adelanta.. pero no voy tan atras.. una pregunta
como ago para hacer que el edit1.text solo acepte caracteres de numeros?? por lo que vi por hay.. vi un odigo que es asi..

selecionamos el edit1 y en las propiedades seleccionamos la pestaña eventos y hacemos click en OnKeypress

segun el codigo que tengo es asi..

begin
if key = (chr(13) and (edit1.text <> '') then
edit2.setfocus

if not ((key > '0') and (key <'9')) then
key := char (0) and (key <='9') or (key = chr(13) or key=chr(8))) then

.... hasta hay fue donde llegue.. pienzo que algo me falta..??

[jordangel]

amigos aqu esta lo que llevo.. por ahora..me falta es como ago para realizar la busqueda gracias..

Archivos adjuntos

•  1126_b160fd70efd07392b6b05ca0416b19517cdb1061.zip   4,04KB   5 descargas

[Wilson]

wuaho... veo que caral.. se me adelanta.. pero no voy tan atras.. una pregunta
como ago para hacer que el edit1.text solo acepte caracteres de numeros?? por lo que vi por hay.. vi un odigo que es asi..

selecionamos el edit1 y en las propiedades seleccionamos la pestaña eventos y hacemos click en OnKeypress

segun el codigo que tengo es asi..

begin
if key = (chr(13) and (edit1.text <> '') then
edit2.setfocus

if not ((key > '0') and (key <'9')) then
key := char (0) and (key <='9') or (key = chr(13) or key=chr(8))) then

.... hasta hay fue donde llegue.. pienzo que algo me falta..??

con esto

delphi

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in['0'..'9', #8, #13]) then
   key := #0;
end;

[jordangel]

amigo gracias.. si me funciono el codigo que diste.. pero ahora lo que intento es que ese edit1 solo pueda aceptar 8 caracteres. no mas... ya solo aceptan nuemeros perfecto.. pero tambien que solo acepte 8 caracteres el codigo que tengo..

me da un error en esta linea..
me dice "Operator not applicable to this operand type"
me dice eso en la linea..

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = ((Chr(13)) and (Edit1.Text <> '') then (aqui es donde me da el error)
if not (key in['0'..'9', #8, #13]) then
  key := #0;
end;

[kafastoforman]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = ((Chr(13)) and (Edit1.Text <> '') then (aqui es donde me da el error)
if not (key in['0'..'9', #8, #13]) then
  key := #0;
end;

Que tal jordangel, posiblemente tu problema esta en el primer parentesis de la linea del error, si quitas ese parentesis y lo pones antes de "key" tal vez funcione.

Ahora con el segundo if que tienes siento que no es necesario el primero, seria bueno que lo analizaras.

saludos.

[Rolphy Reyes]

Saludos.

Para limitar la cantidad de caracteres los TEdit tienen la propiedad MaxLength.

TEdit.MaxLength Property
Specifies the maximum number of characters the user can enter into the edit control.
Description
Use MaxLength to limit the number of characters that can be entered into the edit control. A value of 0 indicates that there is no application-defined limit on the length.

Use MaxLength to limit the length of the text in an edit control if that text will be copied into a fixed-length buffer.

Note: Setting MaxLength will not truncate the existing text, it merely prevents the user from adding more text after reaching the limit of MaxLength characters.
Note: Even when MaxLength is 0, there may be limitations imposed by the operating system on the number of characters that may be entered into an edit control.
Note: The unit of MaxLength is characters (not bytes) if the application is using themes.

[eduarcol]

Hola amigo, acabo de revisar tu programa y vas bien 

Una sugerencia, trabaja con identaciones es mas fácil leer el código, y fijate que las ultimas referencia que hacias a Form1.Editx no hacia faltan ya que estas dentro del entorno de form1:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
   if (Edit1.Text = '') then
   begin
      ShowMessage('Introdusca La Cedula del Alumno');
      Edit1.SetFocus;
   end
   else if (Edit2.Text = '') then
   begin
      ShowMessage('Introdusca el Nombre del Alumno');
      Edit2.SetFocus;
   end
   else if (Edit3.Text ='') then
   begin
      ShowMessage('Introdusca el Numero de Telefono del Alumno');
      Edit3.SetFocus;
   end
   else if ((RadioButton1.Checked = false) and (RadioButton2.Checked = false))then
   begin
      ShowMessage('Seleccione El Sexo del Alumno');
   end
   else
      ShowMessage('Registro Insertado Satisfactoriamente');
 
   Edit1.Clear;
   Edit2.Clear;
   Edit3.Clear;
   RadioButton1.Checked := false;
   RadioButton2.Checked := false;
   Button1.Enabled := false;
   Edit2.Enabled := false;
   Edit3.Enabled := false;
   RadioButton1.Enabled := false;
   RadioButton2.Enabled := false;
   Edit1.SetFocus;
end;

Lo próximo a realizar es la parte interesante de la tarea, tienes que crear un arreglo de registros.  Para realizar esto deberás utilizar el tipo que te esta dando egostar, esto va a definir el registro, la única modificación es que la variable que lo maneja debe ser un arreglo del tipo de TAlumno.

Aparte de todo, y es solo una sugerencia, no obligues al usuario a escribir la cedula con solo numeros, ya que cada uno tiene su propio estilo y según ley la cedula comienza con letra que denota la nacionalidad por ejemplo V-14526369  incluso para usuarios quisquillosos V-14.526.369.  Pero esto es solo una sugerencia y no afecta tu programa.

[Wilson]

amigo gracias.. si me funciono el codigo que diste.. pero ahora lo que intento es que ese edit1 solo pueda aceptar 8 caracteres. no mas... ya solo aceptan nuemeros perfecto.. pero tambien que solo acepte 8 caracteres el codigo que tengo..

me da un error en esta linea..
me dice "Operator not applicable to this operand type"
me dice eso en la linea..

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = ((Chr(13)) and (Edit1.Text <> '') then (aqui es donde me da el error)
if not (key in['0'..'9', #8, #13]) then
  key := #0;
end;

Ensaya así, además de configurar en el object inspector la propiedad MaxLength del Tedit, como lo recomienda Rolphy.

delphi

if not (key in['0'..'9', #8, #13]) then
   key := #0;
if (key = #13) and (Edit1.Text <> '') then
Edit2.Text.SetFocus;

[jordangel]

una pregunta.. no existe una manera de descompilar ese ejecutable..?? de manera que pueda ver el codigo original??.. eso es posible o imposible??..

[Wilson]

El programa DeDe extrae los DFM (equivalente a ver el form com texto, que en tu caso no te servirá de mucho) de los resources del EXE y el resto del código en ASM ....
pero con todo respeto pienso que si te está costando cierta dificultad deducir el código de tu programa que es sencillo, a menos que conozcas algo del tema  dificilmente podrás hacer algo con el código en ASM.

Mas in embargo por curiosidad consulta algo sobre IDA Pro, WinDasm, SoftIce.

Aunque creo que el camino mas corto es documentarte un poquitin mas sobre delphi y deducir el código que es poco y aquí estaremos dispuestos a ayudarte, como puedes ver Eduarcol ya puso algo de código.

Saludos

[eduarcol]

Porque desfalleces amigo jordangel?? ya vas por buen camino, aquí ya tienes todas las piezas lo que te falta es armarla. Dedicarle un poquito, pon de tu parte para que aprendas, conmigo cuenta si quieres seguir aprendiendo, pero si lo que quieres es aprovechar el trabajo de otros de compilando y copiando el código conmigo no cuentes.

Wilson, el código que coloque es de jordangel que lo subió con su programa.

[Wilson]

jordangel, he cambiado algunas cosas en tu programa para que tenga algo de sentido y tengas un punto de partida , con la sola intención de que analices el código y no declines ni optes por caminos que no van a hacer de ti un buen profesional y puedas termines tu tárea, te dejo para que tu deduzcas las funciones de los botones Modificar, eliminar y cancelar, así como su habilitación y desabilitación.

He agregado los botones Primero, Anterior,  Siguiente y Nuevo para que el programa tenga algo de sentido. No creas que la intención es hacerte la tárea, solo que te veo muy confundido y he optado por no dejarte tirado, debes terminarla tu solo. Puedes preguntar lo que quieras.

delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
 type   //Declaracion de tipo record
   TAlumno = record
   Cedula : string;
   Nombre : string;
   Telefono : string;
   Sexo: String;
 end;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    edNombre: TEdit;
    edTelefono: TEdit;
    rbF: TRadioButton;
    rbM: TRadioButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    bnInsertar: TButton;
    bnModificar: TButton;
    bnEliminar: TButton;
    bnCancelar: TButton;
    bnCerrar: TButton;
    edCedula: TEdit;
    bnVerPrimero: TButton;
    bnAnterior: TButton;
    bnSiguiente: TButton;
    bnNuevo: TButton;
    procedure bnInsertarClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure bnVerPrimeroClick(Sender: TObject);
    procedure bnAnteriorClick(Sender: TObject);
    procedure bnSiguienteClick(Sender: TObject);
    procedure bnNuevoClick(Sender: TObject);
  private
  function Posicion: Integer;
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  Alumnos :array [0..4] of TAlumno; //Declaración del arreglo
  PosicionActual : Integer; // Controla la posición en la navegación
implementation
 
{$R *.dfm}
 
procedure TForm1.bnInsertarClick(Sender: TObject);
var
APosicion :Integer;
begin
Aposicion := Posicion;//Obtengo la proxima posición libre  del arreglo
  if (edCedula.Text = '') then
   begin
    ShowMessage('Introduzca La Cedula del Alumno');
    edCedula.SetFocus;
   end
 else if (edNombre.Text = '') then
   begin
    ShowMessage('Introduzca el Nombre del Alumno');
    edNombre.SetFocus;
   end
 else if (edTelefono.Text ='') then
   begin
    ShowMessage('Introduzca el Numero de Telefono del Alumno');
    edTelefono.SetFocus;
   end
  else if ((rbF.Checked = false) and (rbM.Checked = false))then
 begin
  ShowMessage('Seleccione El Sexo del Alumno');
 end
else
  begin
  if APosicion <> -1 then // Compruebo que haya un espacio en el arreglo
  begin
  Alumnos[APosicion].Cedula := edCedula.Text;
  Alumnos[APosicion].Nombre := edNombre.Text;
  Alumnos[APosicion].Telefono := edTelefono.Text;
  if rbF.Checked then
  Alumnos[APosicion].Sexo := 'Femenino' else
  Alumnos[APosicion].Sexo := 'Masculino' ;
    ShowMessage('Registro Insertado Satisfactoriamente');
    edCedula.Clear;
    edNombre.Clear;
    edTelefono.Clear;
    rbF.Checked := false;
    rbM.Checked := false;
    edCedula.SetFocus;
  end
  else
  showmessage('El arreglo está lleno')
 end;
 end;
 
function TForm1.Posicion:Integer; // Obtengo la próxima posición libre
var
 I:Integer;
begin
result := -1;
  for I := 0 to Length(Alumnos)-1 do
   if Alumnos[i].Cedula = '' then
   begin
   result := i;
   Break
   end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);  //Inicializamos el arreglo y la posicion
var
i: Integer;
begin
PosicionActual := 0;
 for i:= 0 to Length(Alumnos)-1 do
 begin
  Alumnos[i].Cedula := '';
  Alumnos[i].Nombre := '';
  Alumnos[i].Telefono := '';
  Alumnos[i].Sexo := '';
 end;
end;
 
procedure TForm1.bnVerPrimeroClick(Sender: TObject);
begin  //Voy a la posicion 0 del arreglo
 edCedula.Text:= Alumnos[0].Cedula;
 edNombre.Text := Alumnos[0].Nombre;
 edTelefono.Text := Alumnos[0].Telefono;
 if Alumnos[0].sexo = 'Femenino' then
  rbF.Checked := true;
 if Alumnos[0].sexo = 'Masculino' then
  rbM.Checked := true;
end;
 
procedure TForm1.bnAnteriorClick(Sender: TObject);
begin
if PosicionActual > 0 then //Voy a la posicion anterior
begin
    edCedula.Text:= Alumnos[Posicionactual -1].Cedula;
 edNombre.Text := Alumnos[Posicionactual -1].Nombre;
 edTelefono.Text := Alumnos[Posicionactual -1].Telefono;
 if Alumnos[Posicionactual -1].sexo = 'Femenino' then
  rbF.Checked := true;
 if Alumnos[Posicionactual -1].sexo = 'Masculino' then
  rbM.Checked := true;
   PosicionActual := PosicionActual -1;
 end;
end;
 
procedure TForm1.bnSiguienteClick(Sender: TObject);
begin
if PosicionActual < High(Alumnos) then //Voy a la siguiente posicion
begin
 edCedula.Text:= Alumnos[Posicionactual +1].Cedula;
 edNombre.Text := Alumnos[Posicionactual +1].Nombre;
 edTelefono.Text := Alumnos[Posicionactual +1].Telefono;
 if Alumnos[Posicionactual +1].sexo = 'Femenino' then
  rbF.Checked := true;
 if Alumnos[Posicionactual +1].sexo = 'Masculino' then
  rbM.Checked := true;
  PosicionActual := PosicionActual +1;
  end;
end;
 
procedure TForm1.bnNuevoClick(Sender: TObject);
begin // Limpia controles en caso de que estes navegando y quieras insertar un nuevo
    edCedula.Clear;
    edNombre.Clear;
    edTelefono.Clear;
    rbF.Checked := false;
    rbM.Checked := false;
    edCedula.SetFocus;
end;
 
end.

Archivos adjuntos

•  1131_8d2c5378f25386e5535625c746b67940e69ef236.zip   10,16KB   1 descargas