Foros Club Delphi - ¿Como podria hacer esto?

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - ¿Como podria hacer esto? (https://www.clubdelphi.com/foros/showthread.php?t=11731)

slat	23-06-2004 19:08:31

¿Como podria hacer esto?

hola soy nuevo en programar con delphi y quiero saber como hacer esto:
quiero hacer un diccionario, de manera que introduzcas una palabra en ingles y al pulsar el boton traducir te muestre su correspondiente en español.
he creado 2 TMemo (uno para que muestre las palabras en español y otro para que muestre las que estan en ingles) y tengo una base de datos llamada diccionario.db donde hay dos columnas: una con palabras en español y otra con sus correspondientes en ingles.
Entonces me gustaria saber como puedo hacerlo, si pudiese ser con el codigo.
Muchas gracias

marcoszorrilla

23-06-2004 21:05:10

Suponiendo que tengas indexado el campo como es lógico, puedes poner un Tedit y en su evento OnChange el código sería:

MiTabla.FindNearest(Edit1.text);

Con esto lograrías un búsqueda incremental.

Lo más lógico sería poner un par de RadioButtons, que preguntarán si vamos a buscar palabras en español o en inglés, en este caso antes de lanzar la búsqueda habría que activar el índice correspondiente.

Código Delphi [-]If lo_Que_Sea then
MiTabla.IndexName:='Ingles'
else
MiTabla.IndexName:='Espanol';
MiTabla.FindNearest(Edit1.text);

La tabla podría mostrarse en una rejilla con la porpiedad ReadOnly a True.

Un Saludo.

slat	26-06-2004 14:58:18

muchas gracias por tu ayuda, pero al introducir esto
Table1.FindNearest(Edit1.Text);
me sale este error
Incompatible types: 'Array' and 'TCaption'
¿Como se soluciona esto?

eduarcol

26-06-2004 15:23:00

Si hubieras tenido la decencia de presionar el Boton F1 de delphi hubieras encontrado esto

Cita:

Empezado por Ayuda de Delphi

procedure TForm1.FormActivate(Sender: TObject);

begin
Table1.DatabaseName := 'DBDemos';
Table1.TableName := 'Customer.db';
Table1.Active := True;
Table1.IndexName := 'ByCompany';
end;

procedure TForm1.Edit1Change(Sender: TObject);

begin
Table1.FindNearest([Edit1.Text]);
end;

marcoszorrilla

26-06-2004 15:27:46

Código Delphi [-]If lo_Que_Sea then
MiTabla.IndexName:='Ingles'
else
MiTabla.IndexName:='Espanol';
MiTabla.FindNearest([Edit1.text]);

Pues es cierto se me olvidaron los corchetes.

Vaya, me doy cuenta que ya te lo había dicho Eduarcol.

Un Saludo.

Gydba

26-06-2004 18:08:51

Buenas,

Perdón que no soy el indicado para decir esto y ni siquiera me corresponde pero el título no ayuda de mucho para alguien que no lea tu mensaje.

Viendo que sos nuevo en el foro te doy la bienvenida y de diría que veas un poco la guia de estilo que la podés encontrar en la firma de nuestro amigo marcoszorrilla.

Por lo demás disfruta de nuestra comunidad...

Eso es todo (perdón, quería sentirme importante diciéndolo :))

La franja horaria es GMT +2. Ahora son las 04:41:03.