Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Cambio de caracteres (https://www.clubdelphi.com/foros/showthread.php?t=61662)

lucho1981 17-11-2008 02:58:50

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

Caral 17-11-2008 18:55:30

Hola
Tal vez algo asi.
Saludos


La franja horaria es GMT +2. Ahora son las 03:45:13.

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