Codigo Firebird con Lazarus y Filtros

[Minoru]

Empezado por TiammatMX

¡¡NIÑ@ GROSER@!! Ve a lavarte la boca con jabón, para que no digas groserías...

jeje, es que hace mucho tiempo utilizaba vb6 y ahora que conocí lazarus me acostumbre mas a su entorno gráfico que con embarcadero. :P

PD: ahora ando buscando información, al seleccionar un ítem del DBGrid1 y que lo datos se pasen a un nuevo form2
si lo sabes , te agradecería mucho tu ayuda!!. T_T

[TiammatMX]

Empezado por Minoru

...PD: ahora ando buscando información, al seleccionar un ítem del DBGrid1 y que lo datos se pasen a un nuevo form2
si lo sabes , te agradecería mucho tu ayuda!!. T_T...

Pregunta nueva, hilo nuevo..., antes que llegue Casimiro a regañarte, ¿ya leíste ésto http://www.clubdelphi.com/foros/guiaestilo.php ?

[Minoru]

Empezado por TiammatMX

Pregunta nueva, hilo nuevo..., antes que llegue Casimiro a regañarte

jajaja, entonces borren esto!! antes de que me regañen!! T_T

seguiré tu consejo entonces. un saludo.-

[Casimiro Notevi]

¿Alguien me ha llamado?
Por si acaso, aquí está la guía de estilo.

[Minoru]

Empezado por Casimiro Notevi

¿Alguien me ha llamado?
Por si acaso, aquí está la URL

si gracias, ya termine de leer la reglas. jejeje. cualquier cosa me regañan :P

[Minoru]

Hola Efisa, desde el mismo día. aplique lo que me dijiste para optimizar y si funciono sin problemas. quite algo de código innecesario que repetía sin necesidad.

pero me volvió a aparecer el error del (MEMO) que se soluciono cuando utilice OnGetText en el evento. pero de esta forma no me sale para aplicar el evento. hay que hacer otra cosa? de antemano muchas gracias por tu ayuda.




el Codigo:
https://www.dropbox.com/s/dxvq74z0e1...er1.2.rar?dl=0




-------------
Metas:
Crear tablas en una BD Firebird - Solucionado
Conectar BD con Lazarus - Solucionado
Mostrar Resultados en Grid - Solucionado
Filtrar los datos por Búsqueda y Orden – Solucionado
Solución al Problema (MEMO) – Solucionado por ecfisa (v1.0)
Pasar Datos del TDBGrid del form1 a Form2 - Solucionado por ecfisa (v1.1)
Optimización del código - Solucionado por ecfisa (v1.1)
Crear Reporte - Solucionado (v1.1)
Reaparece Error del Memo - Pendiente (v1.2)

[ecfisa]

Hola Minoru.

El evento OnGetText ahora deberá residir en el TDataModule y lo creas del mismo modo que cuando estaba en el TForm.Estando SQLQ seleccionado:

Click botón derecho del mouse -> Editar campos... -> FALLA. Luego: Inspector de objetos -> pestaña Eventos -> Doble click sobre OnGetText y dentro el código anterior.

Código Delphi [-]
procedure TDataModule1.SQLQFALLAGetText(Sender: TField; var aText: string;
  DisplayText: Boolean);
begin
  aText:= Copy(TStringField(Sender).AsString, 1, MaxInt);
end;

Saludos