Ayuda en un código

[kbaby]

Hola! Estoy haciendo una minibase de datos con lo que he aprendido. Utilizo la MEMO para guardar los ITEMS. Me gustaría hacer algo para que cuando ponga por ejemplo: García ... me salieran todos los garcías de mi base de datos y yo elejir uno que se mostrara en una tabla ^^.

Espero expresarme bien. Un saludo.

[[Delphius]]

Hola kbaby,
Podrías explicar mejor tu situación?
Por empezar sácame una duda... Cuando dices:

Utilizo la MEMO para guardar los ITEMS

¿A qué te refieres? ¿A un TMemo? ¿Y como es que ingresas los datos?
Así?:

Dato1
Dato2
...
DatoN

O ¿Así?

Dato1 Dato2 ... DatoN

De cualquier manera no creo que sea lo más adecuado para ingresar los items... No se me parece que hay algo que se nos escapa de esta explicación.

Además, deberías aportarnos más detalles. Por empezar que base de datos usas, componentes de acceso a la base de datos ¿ADO?, un poquito de tu código para saber como es que estás haciendo las cosas.

Saludos,

[kbaby]

Vale empiezo.

- Utilizo la utilidad ListBox*.

- Para añadir items a la lista utilizo el siguiente comando:

Código Delphi [-]
l.items.add(edit1.text); // donde l es el nombre de la ListBox* y edit1.text el cuadro de edicción que utilizo para meter el nombre o el dato de la persona.

- Los datos los guardo en un documento de texto .txt y un ejemplo sería:

• Alfonso Megías Navarro 19/05/1921 Hombre 54875422I Granada
• Alfonso Megías Navarro 19/05/1921 Hombre 54875422I Granada
• Alfonso Megías Navarro 19/05/1921 Hombre 54875422I Granada
• Alfonso Megías Navarro 19/05/1921 Hombre 54875422I Granada

Pero cambiarían los datos a mostrar. Así que yo quiero que cuando ponga el DNI XXXXXXXXXX salga la persona que yo quiero en una tabla .

- No se lo que es ADO
- No te pego código porque lo que tengo está en mi libreta de apuntes y eso no lo tengo (porque no lo vimos).

Gracias ^^

*Antes puse TMemo, me equivoque.

[kbaby]

También quiero añadir unas dudas que me surgen mientras compilo el programa.

Tengo dos formularios. En el FORM1 tengo una ListBox y en el FORM2 tengo los datos que voy a guardar en la ListBox cuando pulse un button. ¿Cómo lo hago? Yo se hacerlo si la ListBox está dentro del mismo formulario pero no fuera. Gracias.

Otra duda: Me gustaría ponerle a los button iconos. Por ejemplo al de salir, una puerta... y así. No se que tipo de button es ni como hacerlo.

Gracias es un proyecto lo que estoy haciendo.

[Casimiro Notevi]

Puedes visitar la wiki del clubdelphi:http://wiki.clubdelphi.com/
Puedes visitar la ftp del clubdelphi, donde encontrarás libros tan buenos como este: http://www.terawiki.clubdelphi.com/a...elphi4.pdf.zip
Puedes visitar los trucos del clubdelphi: http://www.clubdelphi.com/trucos/
Si tienes alguna duda, pregunta

[[Delphius]]

Hola kbaby,
Entonces no estamos hablando de base de datos... sino de uso de ficheros.
Olvida lo que dije sobre ADO, motores de base de datos.

¿A que le llamas tabla? Para mi una tabla es un TxxxTable. Y esto si es ya el mundo de base de datos.

Sería bueno que nos expliques profundamente que es lo quienes. Porque cualquier palabra que digas puede tener un significado para otros. Como dije... una tabla para mi es una tabla de una base de datos, a la cual accedo mediante un TTable, o un TQuery, linqueado a un DataSource y una TConeection... etc Y como ves, esto es un mundo que no estás explorando por el momento.

Por el momento lo que te entiendo es que tienes unos datos en el TListBox y tu deseas buscar un item en específico. Para ello se cuenta con el método IndexOf() que devuelve el índice del item si lo encuentra.

El código que te paso a continuación busca el contenido de un TEdit en un TListBox, en caso de encontrarlo lo selecciona, de otra manera recibes un mensaje:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var Index: integer;
begin
  Index := ListBox1.Items.IndexOf(Edit1.Text);
  if Index >= 0
     then ListBox1.Selected[Index] := True
     else ShowMessage('Elemento no encontrado');
end;

Por lo segundo, Tienes dos forms. Cada uno con su respectiva Unit. Para hacer lo que buscas debes declarar la unit de uno en otro en la sección unit.

Código Delphi [-]
Unit Unit2;

interface
...

uses
  bla, bla, bla, Unit1.

...

Entonces esto permite de que desde Unit2 "veamos" y tengamos acceso a Unit1.

Pero he aquí un dilema, Si Unit1 "llama" a Unit2 y Unit2 debe comunicarse a Unit1 y si declaras en uses la Unit del otro, provocarás un conflicto que recibe el nombre de referencia circular. ¿Como solucionarlo?
Uno de los Unit debe tener declarado el uso de la otra unit en la sección implementation y el otro en interface:

Código Delphi [-]
Unit UnitX;

...

implementation

uses
 UnitY;
...

Espero que esto te haya dado una idea. Más no puedo decirte puesto que no comprendo tu idea. Como he dicho, sería oportuno que nos describieses mejor el problema.

Saludos,

[kbaby]

Bueno empezemos:

La 1º duda solucionada, lo de buscar un ITEM y señalarlo. Luego lo que quiero es que ese ITEM con otros que vienen asociados a la información de la persona, se muestren en la tabla. Mi tabla, es la StringGrid (eso es la unica tabla que yo se). Así que voy a probar tu solución de buscar para mostrar para ver si puedo hacer lo que yo quiero.

Lo que yo quiero es... que si pongo el DNI XXX.XXX.XX.X que corresponde a HHHHH HHHHH HHHHH pues en la tabla que tiene sólo una fila... tiene que salir el nombre de HHHHH sus apellidos HHHHHH HHHHH y mas datos que guardo.


La 2º duda... cuando me la explicaste me recordó a algo que dijo el profesor así que muchas gracias jajaja. Solucionada.

La 3º duda... eso si que no la entiendo... si me diera el error la uso, sino ... mejor me quedo quieto y parado.



PD: Puse otro post con "mini dudas que me surgen cuando compilo".

Gracias tio,.