Cita:
Empezado por Casimiro Notevi
Ummm... no sé cómo lo haces
|
Ni yo tampoco sé que pasa, hice al igual que tu un proyecto :
Código Delphi
[-]
unit Unit2;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm2 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
public
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
Edit2.Text := Quotedstr(Edit1.text);
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
Showmessage(Edit2.text);
end;
end.
Y funciona como debería funcionar, para solucionar el problema de los Querys los cambie por parámetros (que es lo que debería haber hecho desde el principio). Pero es desesperante encontrar un error que no tiene ninguna lógica aparente.