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