Pasar datos de un form a otro

[astrosnik]

Hola otra vez referente a la pregunta que he hecho deciros que tengo las referencias a las unidades en uses y que tambien he intentado usando variables globales tanto en un form como en el otro y siempre me da error de violacion de acceso a memoria por si puede servir de algo

[roman]

Hola, bienvenido al ClubDelphi. Te recomiendo que leas la guía de estilo. También te sugiero que uses las etiquetas adecuadas para poner código. Las etiquetas [code] o [delphi] te permite formatear en automático tu código.

// Saludos

[ecfisa]

Hola astrosnik.

lo que quiero es que los datos vuelvan al segundo formulario pero me da error

A la hora de ayudar tambien nos es muy útil que transcribas exáctamente el mensaje de error que te está dando. A golpe de ojo pareciera que te falto incluir la unidad de Form2 en Form3.

Form3:

Código Delphi [-]
...
implementation

uses Unidad_de_Form2;

procedure TForm3...
begin
  Form2.edit2.text := adoquery.fieldbyname('cliente').asstring;
  ...
end;
...

Pero sin saber exáctamente el error que te arroja no puedo aventurar mas.

Saludos.

[astrosnik]

Hola eficsa gracias por responder te pongo el codigo del form 2 y del form5

Código Delphi
en form 2

Código Delphi [-]
implementation
USES
UNIT4, UNIT5;

en form 5:

Código Delphi [-]
implementation
uses
unit2;
 
procedure tform5.datos(sender: TObject);
begin
form2.Edit2.Text:=adoquery1.fieldbyname('perro').Asstring;
end;

el procedimiento datos es llamado por el evento ondblclick de un bdgrid del form5
y el error que da es el siguiente access violation at adress 004bebf9 in module proyect.exe. read of address 0000036c.

a ver si te sirve esta informacion.
pd si pongo la etiqueta para remarcar el codigo dice que no se me permite poner imagenes tendre cara de malo?

[ecfisa]

Hola astrosnik.

¿ Y Form2 ya fué creado cuando lo invocas en Form5 ?

Para salir de dudas, proba si de este modo desaparece el error:

Código Delphi [-]
implementation
uses
  unit2;
 
procedure tform5.datos(sender: TObject);
begin
   if Assigned(Form2) then
     form2.Edit2.Text:=adoquery1.fieldbyname('perro').Asstring;
end;

Saludos.

[astrosnik]

Gracias por tu ayuda ecfisa te comento:
La solucion que me has posteado si bien no da error tampoco produce cambios la mas raro es que el form2 es el que abre el form5 mediante un boton primero los abria en modal pero lo he cambiado por si era eso lo que producia el error el form 2 queda abierto mientras el form5 se ejecuta.

Muchas gracias por la ayuda compañero

[ecfisa]

Hola astrosnik.

La solucion que me has posteado si bien no da error tampoco produce cambios

En realidad no era una solución sino mas bién una prueba para identificar el problema.

Ahora intentalo de este modo:

Código Delphi [-]
implementation
uses
  unit2;
 
procedure tform5.datos(sender: TObject);
begin
  if not Assigned(Form2) then
    with TForm2.Create(nil) do
    try
      edit1.Text := adoquery1.fieldbyname('perro').Asstring;
      ShowModal;
    finally
      Free;
    end;
end;

Saludos.