Ver Mensaje Individual
  #1  
Antiguo 17-11-2008
lucho1981 lucho1981 is offline
Miembro
 
Registrado: abr 2006
Ubicación: Tucuman-Argentina
Posts: 44
Reputación: 0
lucho1981 Va por buen camino
Thumbs down Cambio de caracteres

Hola gente linda, tengo una duda al hacer un programita.
Hace años vi uno parecido y siempre quise hacer algo similar.
Este programita consistia en escribir en un edit una pregunta, y el programita te la respondia solo y siempre acertaba.
la cosa era q en un edit escribias LA RESPUESTA A LA PREGUNTA seguido de la pregunta, pero en el edit solo se escribia el nombre del programa seguido de la pregunta.
No se si me explico bien. Por ejemplo si uno queria preguntarle:
cual es la capital de españa?
debia escribir madrid cual es la capital de españa?
Y en el edit debia aparecer NOMBREDELPROGRAMA cual es la capital de españa?
Donde NOMBREDEPROGRAMA es un nombre q le ponemos al programa, en mi caso Luchito.
A continuacion adjunto el codigo de evento onkeypress del edit
Código Delphi [-]
If  ((key<>' ') and (edit2.text='0')) then
  begin
    if (edit1.Text='L') then
      begin
        edit3.Text:=edit3.Text+key;
        edit1.Text:=edit1.text+'u';
      end;
    if (edit1.Text='') then
      begin
        edit3.Text:=key;
        edit1.Text:='L';
      end;
    if (edit1.text='Lu') then
      begin
        edit3.Text:=edit3.Text+key;
        edit1.text:=edit1.Text+'c';
      end;
   if (edit1.Text='Luc') then
      begin
        edit3.Text:=edit3.Text+key;
        edit1.Text:=edit1.Text+'h';
      end;
    if (edit1.Text='Luch') then
      begin
        edit3.Text:=edit3.Text+key;
        edit1.Text:=edit1.Text+'i';
      end;
    if (edit1.Text='Luchi') then
      begin
        edit3.Text:=edit3.Text+key;
        edit1.Text:=edit1.Text+'t';
      end;
  if (edit1.Text='Luchit') then
    begin
      edit3.text:=edit3.Text+key;
      edit1.Text:=edit1.Text+'o';
    end;
  if (edit1.Text='Luchito') then
    begin
      edit3.Text:=edit3.Text+key;
    end;
  end
else
  begin
    if (edit2.Text='0') then
      begin
        edit2.Text:='1';
        edit1.Text:='Luchito ';
      end
    else
      edit1.Text:=edit1.Text+key;
  end;
El error q me da es q escribe la primera letra de la respuesta.
Ej:
Madrid cual es la capital de españa?
Escribe ML
Alguien me puede dar una solucion? o si debo poner el codigo en otro lugar q no sea el evento onkeypress? Gracias
Responder Con Cita