Hola astrosnik.
Cita:
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.