Código Delphi [-] procedure TForm1.CalcularClick(Sender: TObject); begin if Edit1.GetTextLen>0 then // hacer lo que quieras end;
procedure TForm1.CalcularClick(Sender: TObject); begin if Edit1.GetTextLen>0 then // hacer lo que quieras end;